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The  Programming  Support  Library  (PSL)  is  a  software  system  which  provides 
the  tools  to  organize,  implement,  and  control  computer  program  develop¬ 
ment.  This  involves  the  support  of  the  actual  programming  process  and 
also  the  support  of  -*.he  management  process.  The  PSL  is  desiqned  to 
support  Top  Down  Design  and  Structured  Programming  (TDDSP) . 

This  Maintenance  Mar.ual  provides  detailed  information  on  the  PSL  program 
operations,  data  formats  arid  special  procedures  to  assist  programmer 
personnel  in  the  maintenance  of  PSL  system  programs. 
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2. 2. 1.3  PSL  Access  Routines 

The  nodules  in  this  subdivision  of  the  PSL  system  are 
called  to  access  the  various  date  storage  elenents  of  the  PSL 
systen.  The  three  categories  of  input/output  (I/O)  accessing 
ere  depicted  in  Figure  2-01  as  Basic  I/O,  Unit  I/O  and  Index 
I/O. 


2. 2. 1.3.1  Basic  I/O 

Basic  I/O  is  perforned  to  initialise,  assign  and  release 
PSL  section  file  space  and  to  assign,  read,  write  and  release 
random  block  storage  within  a  section  file.  The  program 
modules  which  perform  these  operations  are  described  below. 
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2. 2. 1.3. 1.1  ITSP  -  Initialise  a  Standard  Pile 

The  ITSP  nodule  la  called  to  initialize  the  random  block 
storage  that  conatltutes  a  atandard  section  file  used  in  PSL 
operations . 


a.  Prograa  Operations 

HIPO  diagram  1.3. 1.1  depicts  the  program  operations 
of  the  ITSP  modules.  The  first  step  calculates  the  number 
of  PSL  blocks  that  can  be  assigned  within  the  space  allocated 
by  FMS  to  the  auction  file.  Rather  than  call  the  ASPL  module, 
the  ITSP  nodule  directly  calls  the  ALPL  module  to  allocate 
the  section  file  then  opens  it  for  output.  The  first  block 
(referred  to  as  Block  #0)  in  the  section  file  is  initialized 
as  a  PSL  Control  Block.  The  second  block  (referred  to  as 
Block  #1)  is  then  initialized  as  a  PSL  Index  Block.  If  the 
requirement  for  a  file  directory  is  indicated  by  the  FILE- 
CON  TA  INS-DIRECTORY- SW  value,  then  the  third  block  (referred 
to  as  Block  #2)  is  Initialized  as  a  PSL  Index  Block  for  use 
as  a  file  directory.  The  PSL  Control  Block  is  initialized 
with  block  number  pointers  to  the  index  block  (Block  #1) 
and  the  directory  block  (Block  #2)  when  required,  else  the 
directory  block  pointer  will  have  a  zero  value.  The  PSL 
Control  Block  is  also  initialized  with  the  library  section 
name,  the  section  password  (if  any)  and  the  section  options. 
Most  Importantly,  the  control  block  is  initialized  with  a  one 
dimensional  string  of  f ree-block-swltch-blt  values  in  which 
a  one-bit  indicates  that  the  block  number  for  a  correspond¬ 
ingly  Indexed  (i.e.,  numbered)  bit  position  is  free  for  block 
assignment  in  PSL  operations  and  a  zero-bit  indicates  that 
the  block  la  not  free  for  assignment;  otherwise  stated:  it 
is  busy.  If  the  last  block  number  that  can  be  assigned  within 
the  section  is  numerically  greater  than  the  number  of  free- 
block-swltch  bit  positions  available  in  the  first  control 
block  (Block  #0),  continuation-control  blocks  are  required  to 
provide  as  many  f ree-block-switch  bit  positions  as  needed  to 
indicate  the  free  block  status  of  the  last  block  that  may  be 
assigned.  It  should  be  noted  at  this  point  that  no  free- 
block-swltch  corresponds  to  Block  #0;  that  is,  the  first 
f ree-block-switch  corresponds  to  Block  #1. 

Initialization  of  the  first  control  block  is 
performed  to  turn  on  the  free  block  switches  for  all  assign¬ 
able  block  positions  and  then  to  turn  off  the  free  block 
switches  for  that  number  of  blocks  which  are  determined  to 
be  used;  that  la,  the  continuation-control  blocks  (when 
needed),  the  file  directory  block  (when  used)  and  unit  index 
block  (which  is  always  used).  The  initialisation  of  the  index 
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and  data  blocka  is  performed  to  set  the  data  contents  to 
zeroes  (or  low  values).  Initialisation  of  the  contlnuetlon 
control  blocka  is  performed  to  turn  on  the  free  block 
switches  up  to  the  last-block  bit  position.  Unassignable 
block-number  bit  positions  in  the  final  control  block  remain 
set  to  zero  Indicating  their  busy  (i.e.,  unavailable)  status. 
Finally,  the  section  file  is  closed  and  de-allocated  to 
conclude  program  operations. 

b.  Data  File  and  Table  Descriptions 

The  following  data  tables  have  special  use  in  ITS7 
module  program  operations: 

01  PSL-CONTROL— BLOCK. 

05  CB-BLOCK-NBB  PIC  S9(9)  COMP. 

05  CB-NEXT-BLOCK-NBR  PIC  S9(9)  COMP. 

05  CB-MAIN-DATA . 

10  CB-SECTION-DATA  PIC  X(54). 

10  FILLER  PIC  X (702) . 

05  CB-FREE-BLOCK-SHS  REDEFINES  CB-MAIN-DATA. 

10  CB-FREE-BLOCK-SV  OCCURS  756  TIMES 

PIC  X. 

88  CB— NO-FREE— BLOCKS— IN— SW  VALUE  ZERO. 

The  above  PSL-CONTROL-BLOCK  description  abbreviates  the 
complete  description  contained  in  the  FSL  Copy  Library 
(CPYLIB) .  That  is,  CB-SECTION-DATA  is  used  here  to  denote 
a  fuller  description  in  the  Copy  Library  of  the  individual 
items  of  data  which  identify  the  section  name,  section 
password,  etc.  The  Important  aspect  of  the  above  description 
is  noted  in  the  redefinition  of  CB-MAIN-DATA  by  CB-FREE- 
BLOCK-SHS. 

In  the  first  control  block,  fifty-four  (54)  of  the 
redefined  table  positions  are  utilised  for  section  data.  This 
fact  Indicates  the  need  to  initialise  the  f ree-block-sw-polnter 
to  fifty-four  when  processing  the  free  block  switches  in  the 
first  control  block  es  compared  with  an  initial  setting  of 
zero  when  processing  the  switches  in  continuation  control 
blocks . 

01  ON-BIT-PATTERN-VALUES. 


05 

FILLER 

PIC 

S9(9) 

COMP 

VALUE 

32 

05 

FILLER 

PIC 

S9  (9) 

COMP 

VALUE 

48 

05 

FILLER 

PIC 

S9  (9) 

COMP 

VALUE 

56 

05 

FILLER 

PIC 

S9  (9) 

COMP 

VALUE 

60 

05 

FILLER 

PIC 

S9(9) 

COMP 

VALUE 

62 

01  FILLER  REDEFINES  ON-BIT-PATTERN-VALUES. 
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05  FILLER  OCCURS  5  TIMES. 

10  FILLER  PIC  X(5). 

10  ON-BIT-PATTERN  PIC  X. 

The  preceding  teble  le  defined  to  contain  patterns  of  one-bits 
which  correspond  to  1,  2,  3,  4  and  5  free  switch  position  out 
of  the  six  represented  In  a  BCD  character  bit  configuration. 
For  example,  a  decimal  32  Is  equivalent  to  an  octal  40  which 
is  equivalent  to  a  binary  100000,  and  so  on  through  decimal 
62  equivalent  to  a  binary  111110.  These  bit  patterns  are 
used  to  set  the  last  free  block  switch  If  the  last  block 
number  divided  by  the  number  of  bits  per  character  (i.e.,  6) 
produces  a  non-zero  remainder.  The  calculated,  non-zero 
remainder  Is  used  as  an  index  to  the  ON-BIT-PATTERN  required 
to  set  the  last  free  block  switch. 

01  OFF-BIT-PATTERN-VALUES. 


05 

PIC  S9 (9) 

COMP 

VALUE 

31. 

05 

PIC  S9 (9) 

COMP 

VALUE 

15. 

05 

PIC  S9 (9) 

COMP 

VALUE 

7. 

05 

PIC  S9(9) 

COMP 

VALUE 

3. 

05 

PIC  S9 (9) 

COMP 

VALUE 

1. 

FILLER 

REDEFINES 

OFF-BIT-PATTERN- 

VALUES . 

05 

FILLER 

OCCURS  5 

TIMES 

• 

10 

FILLER 

PIC  X(5). 

10 

OFF-BIT- 

PATTERN  PIC  X. 

In  a  similar  way  the  OFF-BIT-PATTERN-VALUES  table  contains 
patterns  of  zero-bits  In  the  OFF-BIT-PATTERN  character  that 
correspond  to  1,  2,  3,  4  and  5  busy  block  switch  settings. 
For  example,  decimal  31  corresponds  to  binary  011111 
denoting  that  the  first  indicated  block  is  assigned,  and  so 
on.  The  needed  off  bit  pattern  Is  determined  from  the  non¬ 
zero  remainder  resulting  from  a  division  of  the  last-block- 
number-used  by  six  where  the  quotient  represents  the  number 
of  full  (i.e.,  six-bit  character)  swltchea  to  be  turned  off 
(l.e.,  made  zero) . 

c.  Branching  and  Error  Conditions 

The  following  brenchlng  and  error  conditions  apply 
to  HIPO  diagram  1.3. 1.1: 


Function 

Condition 

Message 

Program 

Reference 

Code 

Catesorv 

Action 

Note 

4-7 

21 

PSL 

Perform  Process  #10 

1 

10 

23 

ERR 

Error  exit 

2 

2-294 


NOTES: 

(1)  This  error  le  not  expected  to  occur  In  norael 
PSL  operations. 

(2)  This  error  condition  is  determined  only  when 
the  preceding  PSL  error  occurs. 


Diagram  ID:  1.3.1. I  Name:  ITSF  -  Initialize  a  Standard  File  Deacription:  PSL  Accesa  Routine  (Basic  I/O) 


2. 2. 1.3. 1.2  ACFL  -  Access  s  File 

The  ACFL  module  dynamically  controls  the  ellocation  and 
deallocation  of  all  files  In  PSL  libraries.  It  has  available 
four  file  codes  for  random  files,  two  file  codes  for 
sequential  Input  files  and  one  file  code  for  a  sequential 
output  file.  At  the  request  of  the  calling  program  (usually 
a  function  processor),  through  a  call  to  ASFL,  a  PSL  library 
file  is  allocated  to  one  of  these  file  codes  of  an  appropriate 
type.  The  file  remains  allocated  to  the  selected  file  code 
until  It  Is  released  with  a  call  to  release  a  file  (RLFL)  and 
that  file  code  Is  required  for  the  allocation  of  another  PSL 
library  file.  At  the  conclusion  of  all  processing  for  a  PSL 
run,  module  BCTL  calls  Release  All  Files  (RLAF)  to  deallocate 
all  files  which  have  been  allocated  but  not  yet  deallocated. 

In  this  way,  a  single  PSL  execution  can  make  use  of  any  number 
of  PSL  library  files  as  long  as  concurrent  use  of  more  than 
four  random  and  three  sequential  files  Is  not  required. 
Repetitive  allocation  and  deallocation  of  the  same  file  when 
it  is  used  by  a  number  of  consecutive  PSL  functions  Is  avoided 
by  delaying  the  deallocation  of  file  until  the  file  code  It 
occupies  is  actually  required  for  another  file.  Each  function 
processor  or  any  other  module  which  calls  ASFL  to  allocate  a 
PSL  library  file  la  expected  to  call  RLFL  to  release  that  file 
when  It  finishes  so  that  ACFL  knows  that  the  file  code  can 
be  made  available  to  another  file.  If  required.  ASFL  also 
opens  files  after  they  have  been  allocated,  closes  those  files 
prior  to  their  actual  deallocation,  and  performs  password 
checking  for  output  PSL  random  library-section  files.  Assign 
a  File  (ASFL),  Release  a  File  (RLFL)  and  Release  All  Files 
(RLAF)  are  the  three  entry  points  of  module  ACFL. 


2. 2. 1.3. 1.2.1  ASFL  -  Assign  a  File 


Module  ASFL  coutrole  the  allocation,  deallocation, 
opening  and  closing  of  the  files  in  a  PSL  library.  All  PSL 
nodules  which  access  PSL  library  files  call  ASFL  to  allocate 
and  open  the  file  prior  to  reading  or  writing  it  with  the  PSL 
access  method  routines.  If  file  assignment  is  successful, 
a  file  nunber  and  for  library-section  files  the  section 
options  are  returned  to  the  calling  program.  The  file  number 
becomes  the  unique  file  identifier  used  by  subsequently  called 
access  method  routines.  If  allocation  for  output  is  requested 
for  a  library-section,  the  input  psssword  is  checked  against 
the  password  stored  in  the  library-section  file  control  block 
and  file  assignment  is  denied  if  they  do  not  match. 

a.  Program  Operations 

BIPO  diagram  1.3. 1.2.1  describes  the  program 
operations.  The  allocation  table  is  used  to  keep  track  of 
which  files  have  been  allocated,  which  file-codes,  and 
whether  the  files  have  been  released.  When  assignment  of  a 
file  is  requested,  the  allocation  table  is  first  searched 
(step  1)  to  determine  if  the  file  is  already  allocated.  If 
it  is  and  the  access  type  (input  or  output)  is  the  same  as 
requested,  a  new  allocation  is  not  required  (step  6).  For 
sequential  files,  in  steps  6(1)  and  6(2)  the  file  is  closed 
and  reopened.  If  the  file  is  allocated  but  with  a  different 
access  type  than  that  requested,  the  file  is  deallocated 
and  allocated  again  to  the  same  file  code  with  the  required 
access  type  (steps  6(3)  through  6(7)).  In  this  way,  no  file 
will  ever  be  allocated  to  more  than  one  file  code  at  the 
same  time.  If  the  file  is  not  currently  allocated  in  step  2, 
ASFL  attempts  to  find  a  "free"  file  code,  one  to  which  no 
file  is  currently  assigned,  and  in  steps  3  through  5  the  file 
is  allocated  to  that  file  code.  If  no  free  file  code  is 
found,  ASFL  finds  a  "released”  file  code,  one  to  which  a  file 
is  currently  allocated  but  which  was  subsequently  released  by 
the  module  which  assigned  it.  The  sllocated  file  is  deallo¬ 
cated  and  the  requested  file  is  allocated  to  that  file  code. 

b.  Data  File  and  Table  Descriptions 
1.  INPUT  ARGUMENTS 

FMS-CATALOG-FILE-STRING 

-  Catalog  file  string  of  file  to  be  sllocated. 


•  01  ALLOCATION-TYPE  PIC  S9(9)  COMP. 

Type  o£  allocation  requested.  Values  are: 

1  -  Input  allocation  only. 

#  2  -  Output  allocation  only. 

3  -  Input  and  output  allocation. 

Type  of  file  access  to  be  used.  Values  are: 

0  -  Sequential  access. 

1  -  Random  access.  i 

i 

e  01  SECTION-PASSWORD  PIC  X(12).  | 

i 

-  Password  for  rsndom  library-section  file  to  be 
allocated  for  output.  Checked  against  password 
stored  In  control  block  for  library-section 
file.  Not  required  for  Input  or  sequential  files. 

2.  OUTPUT  ARGUMENTS 

e  01  FILE-NBR  PIC  S9(9)  COMP. 

-  Number  of  file  code  within  the  allocation  table  to 
which  file  has  been  assigned.  Sequential  files 
have  100  added  to  their  file  number.  If  file 
assignment  Is  not  successful,  the  FILE-NBR  returned 
is  zero. 

•  01  SECTION-OPTIONS. 

-  See  section  3  for  definition  of  SECTION-OPTIONS. 

For  a  random  library-section  file  the  SECTION-OPTIONS 
are  read  from  the  control  block. 

e  01  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  normal  status. 

-  error  code  indicating  cause  of 
section  2.2.1.3.1.2.1(c)  for 
complete  list  of  codes. 
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ALLOCATION  TABLE 


The  allocation  table  la  the  central 
repository  for  information  concerning  the  status  of  file 
assignments.  It  is  composed  of  two  parts,  the  RANDOM- 
ALLOCATION-TABLE  for  random  files  and  the  SEQ-ALLOCATION- 
TABLE  for  sequential  files. 

01  RANDOM-ALLOCATION-TABLE-ENTRIES . 

05  RANDOM-ALLOCATION-TABLE  OCCURS  4  TIMES 

INDEXED  BY  R-TABLE-PTR. 

10  RANDOM-FILE-CODE  PIC  X(2). 

-  File  code  associated  with  this  table  entry. 
Values  are  Rl,  R2,  R3  and  R4 . 

10  FILLER  PIC  X(4) . 

10  RANDOM-ENTRY. 

15  RANDOM-FILE-STRING  PIC  X(72). 

-  The  FMS  catalog  file  string  of  the  file 
string  of  the  file  assigned  to  this 
entry. 

15  RANDOM-ALLOC-TYPE  PIC  S9(9)  COMP. 

-  Allocation  type  used  for  file  assigned 
to  this  entry.  Values  are  same  as  those 
for  input  argument  ALLOCATION-TYPE. 

15  RANDOM-ENTRY-STATUS  PIC  S9(9)  COMP. 

-  Status  of  file  assigned  to  this  entry. 
Values  are: 

zero  -  no  file  is  assigned  to  this 
entry.  Entry  is  "free". 

1  -  file  is  assigned  to  this  entry  and 

has  not  yet  been  released.  Entry 
is  "in  use". 

2  -  file  has  been  assigned  to  this 

entry  and  released,  but  the  file 
has  not  yet  been  deallocated  or 
•  closed.  Entry  is  "released". 


•  01  SEQ- ALLOC -TABLE-ENTRIES 


05  SEQ-ALLOCAT ION-TABLE  OCCURS  3  TIMES 

INDEXED  BY  S-TABLE-PTR. 

10  SEQ-FILE-CODE  PIC  X(2). 

-  File  code  used  for  this  cable  entry. 

Values  are  FI  and  F2  for  input  sequential 
files  (entries  1  and  2)  and  F3  for  the 
output  sequential  file  (entry  3). 

10  FILLER  PIC  X(4) . 

10  SEQ-ENTRY  . 

15  SEQ-FILE-STRING  PICX(72). 

-  The  FMS  catalog  file  string  of  the 
file  assigned  to  this  entry. 

15  SEQ-ALLOC-TYPE  PIC  S9(9)  COMP. 

-  Allocation  type  used  for  file 
assigned  to  this  entry.  Values  are 
1  for  entries  1  and  2,  and  2  for 
entry  3. 

15  SEQ-ENTRY-STATUS  PIC  S9(9)  COMP. 

-  Status  of  file  assigned  to  this 
entry.  Values  are  the  sane  as 
RANDOM-ENTRY-STATUS . 


c.  Branching  and  Error  Conditions 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

2 

6 

ADV 

File  is  not  assigned 
because  no  file  codas 
are  available. 

4,6(5) 

2 

FMS 

File  not  assigned. 

7 

33 

PSL 

File  not  assigned. 

8,10 

97 

ERR 

File  not  assigned. 

Note 


(1)  Unable  to  allocate  requested  file.  See  Sperry 
Unlvac  1100  series  Executive  Systea  Voluae  2  Exec 
Appendix  C  section  C.2  Facility  Request  Status  Codes 
for  aessages  returned. 

(2)  Unable  to  read  a  block  of  the  PSL  library-section 
file.  See  description  of  ACBK.  for  specific 
causes  of  "unable  to  read  a  block"  condition. 


2. 2. 1.3. 1.2.2  RLFL  -  Release  e  File 

Module  RLFL  changes  the  statue  of  an  assigned  file  In  the 
file  allocation  table  froa  "in  use"  to  "released".  The 
"released"  status  Indicates  to  subsequent  calls  to  AS7L  that 
the  file  aay  be  deallocated.  If  required,  to  re-use  the  file 
code  for  the  allocation  of  another  file.  tfhen  a  PSL  aodule 
uses  ASFL  to  allocate  a  PSL  file,  the  module  la  expected  to 
call  RLFL  to  release  the  file  when  It  Is  finished  processing 
that  file. 

a.  Program  Operations 

HIPO  diagram  1.3. 1.2. 2  describes  the  program 
operations.  See  descriptions  of  ACFL  and  ASFL  for  detailed 
description  of  use  of  allocation  table  and  Its  entries. 

b.  Data  File  and  Table  Descriptions 

1.  INPUT  ARGUMENTS 

01  REQUESTED-FILE-NBR  PIC  S9(9)  COMP. 

-  Number  of  file  to  be  released.  This  Is  the  number 
assigned  to  the  file  when  It  was  assigned  by  ASFL. 

2.  OUTPUT  ARGUMENTS 

01  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  normal  return. 

-  22  for  Invalid  file  number  requested. 

-  37  for  release  file  error. 

3.  TABLE  DESCRIPTIONS 

The  allocation  table  Is  described  with 

module  ASFL. 


c.  Branching  and  Error  Conditions 


Function 

Reference 

Condition 

Code 

Message 

Catesorv 

Program 

Action 

Mote 

2 

37 

PSL 

File  Is  released.  Error 
return  from  DAFL  may 
have  unpredictable  result. 

5 


22 


PSL 


File  Is  not  released 


2. 2. 1.3. 1.2. 3  RIAF  -  Release  ell  Files 

Module  RLAF  closes  end  deallocates  ell  files  which  hsve 
been  previously  assigned  by  ASFL  but  not  yet  deallocated. 

s.  Progrsn  Operations 

H1P0  dlsgrsn  1.3. 1.2. 3  describes  the  program 
operations.  See  description  of  ASFL  for  definition  of  file 
statuses,  "in  use",  "released"  and  "empty". 

b.  Data  File  and  Table  Descriptions 

1.  OUTPUT  ARGUMENT 

01  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  normal  processing. 

-  37  for  release  file  error. 

2.  TABLE  DESCRIPTIONS 

The  allocation  table  Is  described  with  module 

ASFL. 


'  c.  Branching  and  Error  Conditions 


Function 

Condition 

Message 

Program 

Reference 

Catexorv 

Action  N< 

2 

37 

PSL 

File  Is  released.  Error 
return  from  DAFL  may 
hsve  unpredictable 
result . 

5 

22 

FSL 

File  Is  released. 

I 

i 
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2. 2. 1.3. 1.3  ACBK  -  Access  s  Block 

The  ACBK  nodule  through  Its  four  entry  points  does  slmost 
ell  of  the  sctusl  input  end  output  Cl/O)  on  the  PSL  library- 
section  files  ss  veil  ss  space  nanagenent  within  the  files. 

The  entry  points  ere:  Assign  s  Block  (ASBK) ,  Release  s  Block 
(RLBK) ,  Reed  s  Block  (RDBK) ,  and  Write  a  Block  (WRBK) .  To 
the  ACBK  routin'*  the  PSL  library-section  file  is  handled  as 
a  group  of  .t.28-vord  blocks  which  are  assigned  to  a  calling 
program  as  needed  and  released  to  the  pool  of  free  blocks  at 
the  request  of  the  caller  when  the  block  is  no  longer  needed. 

The  first  bloc1,  of  the  file,  called  the  control  block.  Is 
reserved  for  this  space  management  function.  It  contains  a 
series  of  .:ee  block  switches  whose  value  Indicate  whether  or 
not  a  particular  block  of  the  file  is  in  use.  Each  block  of 
the  file  except  the  first  (block  zero)  is  represented  by  one 
bit  of  the  free  block  switches.  If  there  are  not  enough 
switches  in  the  first  control  block  to  represent  all  blocks 
of  the  file,  additional  blocks  will  be  assigned  to  contain 
additional  switches.  Subsequent  blocks  are  chained  to  the  first 
with  a  pointer  in  the  second  word  of  the  block.  A  value  of 
one  (1)  indicates  that  the  corresponding  block  is  "free";  a 
value  of  zero  (0)  indicates  that  the  corresponding  block  is 
"in  use".  Each  character  position  of  the  free  block  switches 
represents  six  blocks  in  the  PSL  library-section  file. 
Appropriate  calculations  are  done,  all  in  COBOL,  to  turn  on 
and  off  the  appropriate  bits  for  each  block. 

Each  block  of  the  PSL  library-section  file  is  formatted 
such  that  the  first  word  of  the  block  contains  its  relative 
block  number  within  the  random  file.  The  second  word  is 
reserved  for  use  as  a  chain  pointer  so  that  if  the  block  is 
chained  to  another  block,  the  second  word  will  contain  the 
relative  block  number  of  the  preceedlng  block  in  the  chain. 

If  the  block  is. not  chained  to  another  block,  the  second  word 
will  always  contain  zero.  The  ACBK  routines  assume  that  the 
PSL  library-section  file  has  been  Initialized  in  this  manner, 
probably  with  a  call  to  Initialize  a  Standard  File  (ITSF)  in  a 
prior  run,  and  that  the  PSL  library-section  file  has  been 
allocated  and  opened  by  a  previous  call  to  Assign  a  File 
(ASFL)  in  the  same  run. 


2-309 


) 


2 . 2 . 1 . 3 . 1 . 3. 1  ASBK  -  Assign  s  Block 

The  nodule  ASBK.  locates  a  free  block  In  a  PSL  library- 
section  file  and  returns  the  block  nunber  to  the  calling 
program. 

a.  Program  Operations 

H1P0  diagram  1.3. 1.3.1  describes  the  program 
operations . 


b.  Data  File  and  Table  Descriptions 
1.  INPUT  ARGUMENTS 


•  01  F1LE-NBR  PIC  S9(9)  COMP. 

-  number  assigned  to  library-section  file  when  it  was 
allocated  by  ASFL. 

2.  OUTPUT  ARGUMENTS 

•  01  ASSIGNED-BLOCK-NBR  PIC  S9(9)  COMP. 


-  relative  block  number  of  block  within  the  PSL  library- 
section  file  which  has  been  assigned  for  use  by  the 
calling  program. 

s  01  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  normal  processing. 

-  41  for  unable  to  assign  a  block. 

c.  Branching  and  Error  Conditions 

Function  Condition  Message  Program 

Reference _ Code _ Category _ Action _ Mote 


2,7 

22 

PSL 

Block 

not 

ssslgned . 

2,7 

94 

PSL 

Block 

not 

sssigned . 

2 

33 

PSL 

Block 

not 

assigned . 

7 

34 

PSL 

Block 

not 

sssigned . 

8 

5 

ERR 

Block 

not 

assigned . 

Any 

41 

PSL 

Previous  error  prevented 
block  from  being  assigned 
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2. 2. 1.3. 1.3. 2  RDBK  -  Read  a  Block 


The  module  RDBK  reada  a  block  with  the  given  relative 
block  number  from  a  PSL  library-section  file. 

a.  Program  Operations 

HIPO  diagram  1.2. 1.3. 2  describes  the  program 
operations . 

b.  Data  File  and  Table  Descriptions 

1.  INPUT  ARGUMENTS 

•  01  FILE-NBR  PIC  S9(9)  COMP. 

-  number  assigned  to  library-section  file  when  it 

was  allocated  by  ASFL. 

•  01  BLOCK-NBR  PIC  S9(9)  COMP. 

-  relative  block  number  of  block  to  be  read. 

2.  OUTPUT  ARGUMENTS 

•  01  RANDOM-RECORD-AREA  PIC  X(768). 

-  record  (block)  read  from  PSL  library-section 
file.  See  section  3  for  description  of  formats 
of  various  record  types  in  PSL  library-section 
file. 

a  01'  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  normal  processing. 

-  33  for  unable  to  read  a  block. 


c.  Branching  and  Error  Conditions 


Function 

Reference 

Condlt ion 
Code 

Message 

Category 

Program 

Action 

Note 

1 

22 

PSL 

Block  is  not  read. 

1 

94 

PSL 

Block  is  not  read. 

Any 

33 

PSL 

Previous  error 

prevented  block  from 
being  read. 
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2. 2. 1.3. 1.3. 3  WRBK  -  Write  a  Block 

The  nodule  WRBK  writes  a  block  with.  a  given  relative 
block  number  to  a  PSL  library-section  file. 

a.  Program  Operations 

HIPO  diagram  1.3. 1.3. 3  describes  the  program 
operations.  It  is  required  that  the  first  word  of  the 
blocks  of  the  PSL  library-section  file  contain  the 
relative  block  number  of  the  block.  If  the  block  provided 
by  the  calling  program  does  not  meet  this  requirement,  the 
block  will  not  be  written  to  the  file. 

b.  Data  File  and  Table  Descriptions 

1.  INPUT  ARGUMENTS 

•  01  F ILE-NBR  PIC  S9(9)  COMP. 

-  number  assigned  to  library-section  file  when  it 
was  allocated  by  ASFL . 

•  01  BLOCK-NBR  PIC  S9(9)  COMP. 

-  relative  block  number  of  block  to  be  written. 

•  01  RANDOM-RECORD-AREA  PIC  X(768). 

-  completed  block  to  be  written  to  PSL  library- 
section  file.  See  section  3  for  description 
of  formats  of  various  record  types  in  PSL 
library-section  file.  Block  is  written  to  file 
exactly  as  input.  If  another  block  is  to  be 
chained  to  this  one,  the  calling  program  must 
have  put  the  relative  block  number  of  that  block 
in  the  second  word  prior  to  calling  WRBK. 

2.  OUTPUT  ARGUMENTS 

•  01  PROCESSING-STATUS  PIC  S 9  ( 9 )  COMP. 

Return  code  -  zero  for  normal  processing. 

-  34  for  unable  to  write  a  block. 
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c.  Branching  and  Error  Condltiona 


Function 
Ref  erence 

Condition 

Code 

Massage 

Category 

Program 

Action 

1 

22 

PSL 

Block  is  not 

written . 

1 

94 

PSL 

Block  is  not 

written . 

Any 

34 

PSL 

Previous  error 

prevented  block  from 
being  written. 


Note 
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2. 2. 1.3. 1.3. 4  RLBK  -  Release  e  Block 


The  aodule  RLBK  releasee  a  block  of  a  PSL  library-section 
file  to  sake  it  available  for  re-use  as  required.  When  other 
blocks  are  chained  to  the  specified  block,  all  blocks  in  the 
chain  are  released. 

a.  Program  Operations 

HIPO  diagram  1.3. 1.3.4  describes  the  program 
operations.  In  step  5,  turning  on  the  bit  in  the  free  block 
switches  which  corresponds  to  the  requested  block  makes  that 
block  available  for  re-assignment  by  ASBK.  In  steps  7  through 
8,  the  released  block  is  read  and  word  2  of  the  block  is  tested 
to  determine  if  another  block  is  chained  to  it  and  thus  needs 
to  be  released.  Each  released  block  is  zeroed  and  re-written. 

b.  Data  File  and  Table  Descriptions 

1.  INPUT  ARGUMENTS 

01  FILE-NBR  PIC  S9(9)  COMP. 

-  number  assigned  to  library-section  file  when  it  was 
allocated  by  ASFL. 

01  BLOCK-TO-BE-RELEASED  PIC  S9(9)  COMP. 

-  relative  block  number  of  block  to  be  released. 

2.  OUTPUT  ARGUMENTS 

01  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  normal  processing. 

-  42  for  unable  to  release  a  block. 


c.  Branching  and  Error  Condltlona 


Function  Condition  Massage  Program 


Reference 

Coda 

Category 

Action  Note 

1.4 

33 

PSL 

Block  Is  not  released. 

4 

12 

PSL 

Subsequent  processing 

Is  bypassed. 

6 

34 

PSL 

Block  Is  not  released. 

10 

34 

PSL 

Block  Is  released;  block 

Is  not  zeroed;  chained 
blocks  are  not  released. 

7 

33 

PSL 

Block  Is  released;  block 

Is  not  zeroed;  chained 
blocks  are  not  released. 
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2. 2. 1.3. 2  Unit  I/O 


Unit  I/O  Is  performed  to  reed  end  write  the  date 
elements  that  constitute  a  unit  In  section  file  storage. 
The  program  modules  which  perform  these  operations  are 
described  below. 

2. 2. 1.3. 2.1  WRAC  -  Write  Accounting  Information 

The  WRAC  module  Is  called  to  modify  the  Information 
in  the  unit  accounting  Information  segment  of  a  unit  data 
block . 


a.  Program  Operations 

H1P0  diagram  1.3. 2.1  depicts  the  program 
operations  performed  by  the  WRAC  module.  If  the  calling 
program  module  does  not  indicate  the  block  number  of  the 
PSL  data  block  to  be  modified  (i.e.,  REQUESTED-DATA-BLOCK- 
NBR  equals  aero),  then  the  requested  unit  name  Is  used  to 
find  the  given  unit  In  the  section  Index.  If  the  unit  is 
not  found  then  It  is  presumed  that  a  data  block  needs  to 
be  assigned  and  initialized.  The  block  number  of  the  given 
unit  is  thus  determined  in  one  of  three  ways:  1)  it  is 
given ,  2)  it  is  found,  or  3)  it  is  assigned.  In  all  cases 
the  determined  date  block  is  modified  with  the  given 
accounting  information  and  the  PSL  data  block  is  written 
to  the  section  file.  In  the  latter  case,  it  remains  for 
the  calling  program  to  add  the  unit  name  to  the  section 
index  following  a  normal  return  from  the  WRAC  module. 

b.  Data  Pile  and  Table  Descriptions 

No  special  files  or  tables  are  utilized  by  the 
WRAC  module. 

c.  Branching  and  Error  Conditions 

The  following  branching  and  error  conditions  apply 
to  H1P0  diagram  1.3.2. 1: 

Function  Condition  Message  Program 

Reference _ Code _ Category _ Action _ Note 

7  46  PSL  Exit  module  1 

NOTES: 

(1)  This  error  may  occur  as  a  secondary  error  when 

preceded  by  an  error  return  from  the  ASBK  module 
relative  to  a  "no-space-available"  error  message 
(condition  code  ■  5);  otherwise  it  is  unlikely 
to  occur. 


2. 2. 1.3. 2. 2  RDUN  -  Read  a  Unit 


The  nodule  RDUN  is  used  by  all  PSL  function  processors  to 
read  the  accounting  record  and  data  lines  of  a  unit  in  a  PSL 
library  section  file.  RDUN  consists  of  three  entry  points. 
Initialize  to  Read  (ITRD) ,  Read  a  Line  (RDLN) ,  and  Terminate 
Read  (TMRD) .  The  calling  program  must  cali  ITRD  to  initalize 
the  reading  of  a  specific  unit.  A  successful  return  from  ITRD 
is  then  followed  by  repetitive  calls  to  RDLN  to  obtain  in 
sequence,  the  lines  of  data  contained  in  the  unit.  A  call 
to  TMRD  is  required  only  if  the  calling  program  does  not 
continue  to  call  RDLN  until  an  end-of-unit  return  is  received. 
For  PSL  units  which  are  not  typed  INDEPENDENT,  that  is  whose 
contents  are  completely  contained  in  the  library-section 
random  file,  unit-reads  may  be  nested.  If  a  second  call  to 
ITRD  is  made  before  the  previous  unit  read  is  complete,  that 
is  neither  end-of-unit  has  been  detected  nor  a  call  to  TMRD 
has  been  made,  the  current  status  of  the  unit-read  In  progress 
is  saved  in  a  push  down  stack,  and  subsequent  calls  to  RDLN 
will  return,  in  sequence,  the  lines  of  the  newly  initialized 
unit.  Occurrence  of  an  end-of-unit  condition  or  a  call  to 
TMRD  will  discontinue  reading  of  the  new  unit  and  restore  the 
read  status  of  the  most  recently  saved  unit-read.  Subsequent 
calls  to  RDLN  then  continue  to  return  the  lines  of  the  inter¬ 
rupted  unit  as  though  no  interruption  had  occurred.  Unit-reads 
may  be  nested  in  this  way  up  to  a  maximum  depth  of  50. 
INDEPENDENT  units  can  never  be  nested,  either  with  other 
INDEPENDENT  units  or  with  random  units.  An  attempt  to  do  so 
will  result  in  an  error  return  from  ITRD. 


2 . 2 . 1 . 3. 2 . 2 . 1  ITRD  -  Initialize  to  Read 

The  module  ITRD  initializea  data  areas  and  buffers 
required  to  prepare  for  reading  the  lines  of  data  of  a  unit 
in  a  PSL  library-section.  The  accounting  record  of  the  unit 
to  be  read  is  returned  to  the  caller. 

a.  Program  Operations 

HIPO  diagram  1.3. 2. 2.1  describes  the  operations 
performed.  It  is  assumed  that  the  library-section  file  from 
which  the  unit  is  to  be  read  has  been  allocated  by  a  call  to 
ASFL  prior  to  calling  ITRD.  If  the  reading  of  another  random 
unit  is  in  progress,  the  status  of  that  unit-read  is  saved  in 
push-down  stack  STACK-OF-ACTIVE-UNITS  (step  1).  If  the 
number  of  the  first  data  block  of  the  unit  is  not  present  (is 
equal  to  zero)  in  the  input  index  entry,  ITRD  will  obtain  a 
complete  index  entry  by  calling  FDXE  (step  2).  For  the 
initialization  of  a  read  for  an  INDEPENDENT  unit,  the  input 
FMS  catalog  file  string  is  passed  to  ASFL  to  allocate  and  open 
the  independent  unit  file  prior  to  its  being  read  (step  5). 

In  step  6,  if  the  data  in  the  section  is  compressed,  the 
position  of  the  first  character  of  the  first  line  of  the  unit 
is  computed  to  be  the  first  character  position  after  the 
accounting  Information  or  extended  accounting  Information  if 
the  MGHT  option  is  in  effect  for  the  section.  If  the  data  in 
the  section  is  not  compressed,  the  pointer  to  the  first  line 
of  the  unit  is  set  to  skip  the  number  of  lines  of  space  which 
is  occupied  by  the  accounting  information  and  the  extended 
accounting  information  if  the  MGMT  option  is  in  effect  for 
the  section. 

b.  Data  File  and  Table  Descriptions 
1.  INPUT  ARGUMENTS 

e  01  IN-FILE-NBR  PIC  S9(9)  COMP. 

-  number  assigned  to  library-section  file  when  it  was 

allocated  by  ASFL. 

e  01  REQUESTED-INDEX-ENTRY. 

05  REQUESTED-UNIT-NAME  PIC  S9(9)  COMP. 

-  name  of  unit  to  be  read. 
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Diagram  IOi  1.3. 2. 2.1  Name:  ITRD  -  Initialize  to  Read 


05  REQUESTED-DATA-BLOCK-PTR  PIC  S9(9)  COMP. 

-  number  of  first  data  block  of  unit  to  be  read. 

If  this  field  contains  zero,  a  new  Index  entry 
will  be  obtained  by  ITRD . 

05  REQ-INCLUDING-UNITS-L1ST  PIC  S9(9)  COMP. 

-  Not  used. 

05  REQUESTED-UNIT-TYPE  PIC  X(l). 

-  unit  type  code  for  unit  to  be  read.  Code  must  be 

one  of  those  defined  in  the  UNIT-TYPE-TABLE. 

e  01  IN-SECTION-OPTIONS  PIC  X(16). 

-  SECTION-OPTIONS  field  received  from  ASFL  when 
library-section  to  be  read  was  allocated. 

e  01  FMS-CATALOG-FILE-STRING . 

-  FMS  catalog  file  string  as  defined  in  section 

for  Independent  unit  file  when  unit  typed  INDEPENDENT 
is  to  be  read.  Not  used  for  random  units. 

2.  OUTPUT  ARGUMENTS 

e  01  ACCOUNTING-INFO. 

-  Accounting  information  read  from  first  data  block  of 
unit  to  be  read.  Fields  of  accounting  Information 
area  are  described  in  section 

•  01  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  normal  processing. 

-  47  for  unable  to  initialize  to  read. 

3.  STACR-OF-ACTIVE-UNITS 

This  push-down  stack  contains  the  status  of 
those  units  whose  reading  was  interrupted  when  another  unit 
was  initialized  for  reading.  Each  entry  in  the  stack  contains 
all  information  for  one  interrupted  unit. 

05  STACE-ENTRY  OCCURS  50  TIMES. 
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10  STACK-FILE-NBR  PIC  S9(9)  COMP. 

-  File  number  of  file  from  which  unit  vas 
being  read. 

10  STACK-BLOC K-NBR  PIC  S9(9)  COMP. 

-  Block  number  of  last  block  of  unit  which  was 
being  read. 

10  STACK-LINE-COUNTER  PIC  S9(9)  COMP. 

-  number  of  lines  read  within  the  current 
data  block. 

10  STACK-LINE-POINTER  PIC  S9(9)  COMP. 

-  for  compressed  data,  pointer  to  first  character 
of  next  data  line  to  read.  For  non-compressed 
data,  index  to  position  of  last  data  line  read. 
Not  used  for  Independent  units. 

10  STACK-COMPRESSED-SW  PIC  9. 

-  Flag  to  indicate  whether  the  library-section 
file  being  read  has  its  data  compressed. 

Value  zero  is  for  not  compressed;  value  one 
is  for  compressed.  Not  used  for  INDEPENDENT 
units . 


v 


2. 2. 1.3. 2. 2. 2  RDLN  -  Read  a  Line 

The  module  RDLN  obtains  the  next  data  line  in  sequence  of 
a  unit  in  a  PSL  libvary-aec tion  file.  Units  which  can  be  read 
are  restricted  to  card-image  data  in  the  SOURCE,  JOB,  LINK, 
TEST,  TEXT,  MGMT  and  PDL  sections. 

a.  Program  Operations 

HIPO  diagram  1.1. 2. 2. 2  describes  program  operations. 
For  random  units  all  data  lines  are  stored  in  the  library- 
section  file  itself.  Data  blocks  are  chained  together  and  are 
read  in  sequence  as  required.  In  the  data  area  of  each  data 
block,  the  data  records  are  stored  in  sequence.  For  non- 
compressed  data,  the  data  area  consists  of  a  sequence  of  80 
character  card-image  records.  For  compressed  data,  the  data 
records  are  variable  length.  The  first  two  bytes  (12  bits) 
of  each  record  contains  the  binary  byte  number  within  the  data 
area  of  the  first  byte  of  the  next  data  record.  The  second 
two  bytes  of  each  data  record  contains,  in  binary,  the  number 
of  leading  blank  characters  contained  in  the  non-compressed 
data  line  stored  in  the  record.  These  two  control  fields  are 
followed  by  the  actual  characters  of  the  data  line.  Leading 
and  trailing  blanks  which  occurred  in  the  original  non- 
compressed  line  ate  not  stored,  but  are  Inserted  by  RDLN  in 
the  data  line  which  is  returned  to  the  caller.  For  units 
typed  INDEPENDENT',  the  data  records  are  stored  in  a  separate 
file  from  the  library-section  file.  This  independent  file  is 
in  system  standard  format  with  80-column  card-image  records. 
Data  records  are  obtained  using  the  standard  COBOL  sequential 
read . 


b.  Data  File  and  Table  Descriptions 
1.  INPUT  DATA  ITEMS 

The  data  items  maintained  from  one  call  of  RDLN 
to  another  are  the  same  as  the  unit-read  status  items  stored 
in  the  STACK-OF-ACTIVE-UNITS  described  in  section  2 . 2 . 1 . 3 . 2 . 2 . 1 . 
The  values  for  the  unit  currently  being  read  are  stored  in  the 
following  data  items: 

e  01  FILE-NBR  PIC  S9(9)  COMP. 

-  file  number  of  file  from  which  unit  was  being  read, 

a  01  BLOCK-NBR  PIC  S9(9)  COMP. 

-  block  number  of  last  block  of  unit  which  was 
being  read. 
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END  IF 
ENDCASE 


01  LINE-COUNTER 


PIC  S9 (9)  COMP 


-  number  of  lines  read  within  the  current  data  block. 

•  01  PTR-TO -NEXT- LINE  PIC  S9(9)  COMP. 

-  for  compressed  data,  pointer  to  first  character  of 
next  data  line  to  read. 

•  01  LINE-PTR  PIC  S9  (9)  COMP. 

-  for  non-compreased  data,  index  to  position  of  last 
data  line  read. 

e  01  DATA-COMPRESSION-SW  PIC  9. 

-  Flag  to  indicate  whether  the  library-section  file 
being  read  has  its  data  compressed.  Value  zero  is 
for  not  compressed;  value  one  is  for  compressed. 

Not  used  for  INDEPENDENT  units. 

2.  OUTPUT  ARGUMENTS 

e  01  LINE-0F-DATA  PIC  X(80). 

-  Data  line  read  from  unit.  Not  returned  when  end- 
of-unit  is  detected. 

e  01  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  line  of  data  returned. 

-  18  for  end-of-unit 

-  48  for  read  error. 


c.  Branching  and  Error  Conditions 


Function 

Condition 

Message 

Program 

Reference 

Code 

Category 

Action 

No  ce 

2 

33 

PSL 

Subsequent  processing 
is  bypassed. 

1 

6 

22 

PSL 

Subsequent  processing 
is  bypsssed. 
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c.  Branching  and  Error  Conditions  (Continued) 


5,6 

18 

N/A 

End-of -unit 
returned  to 

code 
caller . 

Any 

48 

PSL 

Previous  error  prevented 

successful  unit  read. 
Code  returned  to  caller. 


Note : 

(1)  Unable  to  read  a  block  from  library-section  file. 

See  description  of  module  ACBK  for  conditions  which 
cause  "unable  to  read  block"  condition. 
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2. 2. 1.3. 2. 2. 3  TMRD  -  Terminate  Read 


The  module  TMRD  ends  the  read  processing  for  a  unit  of 
a  PSL  library-section  file.  If  the  reading  of  another  unit 
was  Interrupted  to  begin  reading  the  current  unit,  the  status 
of  the  previous  unit  Is  restored  so  that  reading  of  that  unit 
can  resume. 


a.  Program  Operations 

HIPO  diagram  1.3. 2. 2. 3  describes  the  program 
operations.  Current  data  Items  to  be  restored  are  taken  from 
the  STACK-OF-ACTIVE-UNITS . 

b.  Data  File  and  Table  Descriptions 

All  significant  data  is  described  with  modules  ITRD 
and  RDLN,  sections  2 . 2 . 1 . 3 . 2 . 2 . 1  and  2 . 2 . 1 . 3 . 2 . 2 . 1 ,  respectively. 

c.  Branching  and  Error  Conditions 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

Note 

3 

33 

PSL 

Code  49  returned 
caller . 

to 

1 

3 

49 

PSL 

Code  returned  to 
due  to  previous 

caller 
error . 

Note : 

(1)  Unable  to  read  a  block  from  library-section  file. 

See  description  of  module  ACBK  for  conditions  which 
cause  "unable  to  read  block"  condition. 
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2. 2. 1.3. 2. 3  WRUN  -  Write  e  Unit 


The  module  WRUN  ie  used  by  ell  PSL  function  processors  to 
write  the  eccounting  record  end  dete  lines  of  e  unit  in  a  PSL 
library-section  file.  WRUN  consists  of  three  entry  points. 
Initialize  to  Write  (ITWR) ,  Write  e  Line  (WRLN) ,  and  Terminate 
Write  (TMWR) .  WRUN  will  either  write  over  the  data  blocks  of 
an  existing  unit  or  obtain  free  data  blocks  to  write  the  new 
unit.  It  is  assumed  that  the  library-section  file  has  been 
allocated  with  a  call  to  ASFL  prior  to  calling  WRUN.  The 
calling  program  must  call  ITWR  to  initialize  the  writing  of  a 
specific  unit.  A  successful  return  from  ITWR  is  then  followed 
by  repetitive  calls  to  WRLN  to  write,  in  sequence,  the  lines 
of  data  in  the  unit.  A  call  to  TMWR  is  required  after  all 
lines  of  the  unit  have  been  passed  to  WRLN  to  write  out  the 
last  data  block  of  the  unit  and  to  release  any  unused  data 
blocks  which  were  assigned  to  the  over-written  unit.  WRUN 
does  not  add  or  change  any  index  entry  that  is  associated  with 
the  unit  written.  The  index  processing  modules  described  in 
section  2. 2. 1.3. 3  must  be  called  to  make  any  index  modification 
required  for  the  uew  or  changed  unit.  For  random  units,  if 
data  compression  has  been  specified  for  the  library-section, 
the  data  lines  will  be  compressed  by  WRUN.  For  Independent 
units,  if  the  Independent  unit  file  does  not  exist,  it  will  be 
created  and  allocated  by  WRUN. 
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2. 2. 1.3. 2. 3.1  ITWR  -  Initialize  to  Write 

The  nodule  ITWR  initializes  work  areas  and  buffers  which 
will  be  used  subsequently  by  module  Write  a  Line  (WRLN)  and 
Terminate  Write  (TMWR)  to  write  the  account  information  and 
data  lines  of  a  unit  in  a  PSL  library-sec tio  file.  ITWR  reads 
the  first  data  block  of  the  unit  to  be  written  or  assigns  and 
initializes  a  new  block  for  the  first  data  block.  It  stores 
the  accounting  information  in  the  first  data  block.  For  a  unit 
typed  INDEPENDENT,  it  allocates  the  independent  unit  file.  If 
the  independent  unit  file  does  not  exist,  it  is  created  prior 
to  allocation. 

a.  Program  Operations 

HIPO  diagram  1.3. 2. 3.1  describes  the  program  oper¬ 
ations.  In  step  i,  if  the  number  of  the  first  data  block  of  the 
unit  is  not  (is  equal  to  zero)  in  the  input  index  entry,  ITWR 
will  call  Assign  a  Block  (ASBK)  to  assign  a  free  block  to  be 
used  for  the  first  data  block.  The  number  of  the  first  data 
block  of  the  unit  is  returned  to  the  caller.  If  the  unit  is 
typed  INDEPENDENT  and  the  unit  did  not  previously  exist  (number 
of  first  data  block  equals  zero),  in  step  7,  ITWR  calls 
Create  a  File  (CRFL)  to  create  the  independent  unit  file. 

b.  Data  File  and  Table  Descriptions 
1.  INPUT  ARGUMENTS 


e  01  FILE-NBR  PIC  S9(9)  COMP. 

-  Number  assigned  to  library-section  file  when  it  was 
allocated  by  ASFL. 

e  01  REQUESTED-INDEX-ENTRY. 

05  REQUESTED-UNIT-NAME  PIC  X(30). 

-  Name  of  unit  to  be  read. 

05  REQUESTED-DATA-BLOCK-PTR  PIC  S9(9)  COMP. 

-  Number  of  first  data  block  of  unit  to  be  written. 
If  this  field  contains  zero,  a  new  block  will  be 
obtained  by  ITWR. 
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05  REQ- INCLUDING— UN ITS -LI ST  PIC  S9(9)  COMP. 

-  Not  used. 

05  REQUESTED-UNIT-TYPE  PIC  X(l). 

-  Unit  type  code  for  unit  to  be  read.  Code  must  be 
one  of  those  defined  in  the  UNIT-TYPE-TABLE. 

•  01  SECTION-OPTIONS  PIC  X(16). 

-  SECTION-OPTIONS  field  received  from  ASFL  when 
library-section  to  be  read  was  allocated. 

•  01  ACCOUNTING-INFO. 

-  Accounting  information  to  be  written  in  first  data 
block  of  unit.  Fields  of  accounting  Information  area 
are  described  in  section 

•  01  FMS-CATALOG-FILE-STRING . 

-  FMS  catalog  file  string  as  defined  in  section 

for  Independent  unit  file  when  unit  typed  INDEPENDENT 
is  to  be  written.  Not  used  for  random  units. 

2.  OUTPUT  ARGUMENTS 

e  01  FIRST-DATA-BLOCX-NBR  PIC  S9(9)  COMP. 

-  Number  of  first  block  of  unit  to  be  written.  Will 
contain  either  the  value  from  the  input  index  entry 
or  the  value  received  from  Assign  a  Block  (ASBK)  for 
the  new  block. 

PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  cede  -  zero  for  normal  processing. 

-  47  for  unable  to  initialize  to  read. 

3.  DATA  ITEMS  INITIALIZED  FOR  WRLN  AND  TMWR 

LINE-COUNTER  PIC  S9(9)  COMP. 

-  Number  of  lines  written  in  the  current  data  block. 
Initial  value  -  zero. 


e  01 


e  01 
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•  01  END-OP-LAST-LINE  PIC  S9(9)  COMP. 

-  Character  position  within  the  current  data  block  where 
the  last  character  of  the  last  data  record  was  written. 
Used  only  for  compressed  data.  Initial  value  at  start 
of  a  firat  data  block  -  last  character  position  of 
accounting  inforaatlon  or  extended  accounting  informa¬ 
tion  if  MGMT  option  selected  for  the  section.  Initial 
value  at  start  of  data  blocks  other  than  the  first 

for  the  unit  -  zero. 

e  01  LINE-POINTER  PIC  S9(9)  COMP. 

-  Index  to  position  of  last  data  line  record  written. 

Used  only  for  non-compressed ,  random  units.  Initial 
value  for  first  data  block  -  record  number  which  will 
place  the  next  data  line  record  after  the  accounting 
information  or  extended  accounting  information  if 
MGMT  option  selected  for  the  section.  Initial  value 
for  blocks  other  than  first  data  block  -  zero. 
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Previous  error  causes 
this  code  to  be  returned 
to  the  caller. 


ces  : 


(1)  Unable  to  assign  a  block.  See  description  of  AS BK  for 
detailed  list  of  causes  for  this  condition. 

(2)  Unable  to  read  a  block.  See  description  of  RDBK  for 
detailed  list  of  causes  for  this  condition. 

(3)  Unable  to  process  FMS  file  options. 

(A)  Unable  to  create  file.  See  Sperry  Univac  1100  series 
Executive  System  Volume  2  Exec  Appendix  C  section  C.2 
Facility  Request  Status  Codes  for  error  conditions. 

(5)  Unable  to  assign  a  file.  See  description  of  ASFL  for 
detailed  list  of  causes  for  this  condition. 
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2. 2. 1.3. 2. 3. 2  WRLN  -  Write  a  Line 

The  module  WRLN  writes  a  line  of  data  to  a  unit  in  a  PSL 
library-section  file.  Units  which  may  be  written  are  restricted 
to  card-image  data  In  the  SOURCE,  JOB,  LINK,  TEST,  TEXT,  MGMT 
and  PDL  sections. 

a.  Program  Operations 

HIPO  diagram  1.3. 2. 3. 2  describes  the  program  oper¬ 
ations.  In  step  1,  the  number  of  leading  blanks  and  the  number 
of  characters  required  for  the  compressed  line  are  determined 
by  scanning  the  input  lire  of  data  to  locate  the  first  and  last 
non-blank  characters  of  the  line.  The  number  of  characters 
required  is: 

(Position-of -first-non-blank  - 

Position-of-last-non-blank  +  1)  +  4 

Two  bytes  (character  positions)  are  used  to  store  the  byte 
position  of  the  start  of  the  next  line  and  two  bytes  are  used 
to  store  the  number  of  leading  blanks. 

b.  Data  File  and  Table  Descriptions 


1.  INPUT  ARGUMENTS 


•  01  LINE-OF-DATA 


PIC  X  (80) . 


-  The  data  line  which  is  to  be  written  into  the  unit 
being  written. 


2.  OUTPUT  ARGUMENTS 


•  01  PROCESSING-STATUS 


PIC  S9  (9)  COMP. 


Return  code  -  zero  for  line  of  data  written  successfully. 
-  44  for  error  in  writing  line. 

3.  OTHER  DATA  ITEMS 

Those  data  items  initialized  by  ITWR  are  used 
by  WRLN  and  updated  for  use  in  subsequent  calls  to  WRLN  and 
TMWR .  See  Section  2 . 2 . 1 . 3 . 2 . 3 . 1  b.  for  description  of  these 
data  items. 
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c  . 

Branching  and 

Error  Conditions 

Function 

Reference 

Condi tlon 
Code 

Message 

Category 

Program 

Action 

No  te 

2(1)  ,4(1) 

41 

PSL 

Line  is  not  written. 

1 

2(4), 4(4) 

34 

PSL 

Line  is  not  written. 

2 

2(6) ,4(6) 

33 

PSL 

Line  is  not  written. 

3 

6 

N/A 

N/A 

Insufficient  file  space 
allocated  for  INDEPENDENT 
unit  file  causes  program 
abort . 

All 

44 

PSL 

Error  code  returned  to 
caller  due  to  previous 
error  . 

Notes : 

(1)  Unable  to  assign  a  block.  See  description  of  ASBK  for 
detailed  list  of  causes  for  this  condition. 


(2)  Unable  to  write  a  block.  See  description  of  VRBK  for 
detailed  list  of  causes  for  this  condition. 


(3)  Unable  to  read  a  block.  See  description  of  RDBK  for 
detailed  list  of  causes  for  this  condition. 


2. 2. 1.3. 2. 3. 3  TMWR  -  Terminate  Write 

The  module  TMWR  ends  the  writing  of  a  unit  In  a  PSL 
library-section  file.  This  Includes  writing  the  last  data 
block  to  the  library-section  file,  releasing  any  unused  data 
blocks,  and  releasing  the  Independent  unit  file  If  a  unit  typed 
INDEPENDENT  was  written. 

a.  Program  Operations 

HIPO  diagram  1.3. 2. 3. 3  describes  the  program  oper¬ 
ations.  No  index  processing  is  performed  by  TMWR.  If  the 
newly  written  unit  is  to  be  used  by  subsequent  PSL  function 
processors,  the  index  processing  modules  must  be  called  to 
update  the  Index  entry  to  reflect  the  new  position  of  the  data 
blocks  for  the  unit  In  the  library-section  file. 

b.  Data  File  and  Table  Descriptions 

All  significant  data  Items  are  described  In  Section 
2. 2. 1.3. 3.1  with  the  module  ITWR. 


c.  Branching  and  Error  Conditions 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

Note 

1 

42 

PSL 

NONE 

1 

4 

34 

PSL 

NONE 

2 

5 

37 

PSL 

NONE 

3 

N  o tea  : 

(1)  Unable  to  release  excess  blocks.  See  description  of 
RLBK  for  details  of  causes  for  this  condition. 

(2)  Unable  to  write  a  block.  See  description  of  WRBK 
for  details  of  causes  for  this  condition. 

(3)  Unable  to  release  a  file.  See  description  of  RLFL 
for  details  of  causes  for  this  condition. 
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2. 2. 1.3. 3 


Index  I/O 


Index  I/O  is  performed  to  add,  find,  read,  change  and 
delete  an  index  entry  in  a  PSL  section  file.  The  program 
modules  which,  perform  these  operations  are  described  below. 


2. 2. 1.3. 3.1  ADXE  -  Add  an  Index  Entry 


The  aodule  ADXE  adds  a  PSL  INDEX  ENTRY ,  alphabetically, 
to  an  INDEX  BLOCK,  of  the  section  file.  The  ADXE  processing 
is  responsible  for  finding  the  appropriate  INDEX  BLOCK  to 
which  to  add  the  new  INDEX  ENTRY.  The  new  INDEX  ENTRY  may 
be  added  to  an  existing  INDEX  BLOCK  or  to  a  new  INDEX  BLOCK. 
The  new  INDEX  BLOCK  results  from  either  having  no  space  to 
add  another  entry  or  the  need  to  insert  an  entry  within  the 
alphabetical  range  of  a  full  INDEX  BLOCK.  It  Is  assumed  that 
prior  to  ADXE  processing,  the  module  ASFL  has  been  called  to 
allocate  the  PSL  section  file. 

Modules  that  call  the  module  ADXE  are  responsible  for 
setting  the  USE-DIRECTORY-SW  which  indicates  the  starting 
block  for  the  ADXE  processing,  either  the  CONTROL  BLOCK  or 
the  first  INDEX  BLOCK. 

a.  Program  Operations 

HIPO  diagram  1.3. 3.1  describes  the  operation  per¬ 
formed.  In  step  2,  if  the  directory  block  of  a  PSL  section 
file  is  to  be  read  by  the  ADXE  processing,  the  PSL  CONTROL 
BLOCK  must  be  read  to  obtain  the  location  of  the  directory 
block.  In  step  7,  the  ADXE  processing  compares  unit  names  of 
each  index  entry  to  find  the  proper  poaltlon  for  the  new 
entry.  In  step  8,  when  the  new  unit  name  is  alphabetically 
within  range  of  the  existing  unit  name  in  a  particular  index 
block  and  the  existing  entry  points  to  a  lower  index  block, 
then  ADXE  processing  must  inspect  the  lower  index  block  for 
proper  position.  In  step  10,  if  the  new  index  entry  is  to 
be  placed  in  an  index  block  which  is  already  full  then  the 
full  block  has  to  be  split  and  rewritten  to  accommodate  the 
new  entry.  Index  blocks  that  are  not  full  mcy  have  the  new 
entry  added  or  inserted  before  the  block  is  rewritten. 

b.  Data  File  and  Table  Description 
1.  INPUT  ARGUMENTS 

e  FILE-NBR  PIC  S9<9)  COMP. 

-  number  of  file  code,  within  the  allocation 
table  to  which  file  has  been  assigned. 

a  REQUESTED-BLOCK-NBR  PIC  S9(9)  COMP. 

-  index  block  where  processing  is  to  begin. 
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•  REQUESTED-INDEX-ENTRY 

-  see  section  for  description  of  the  data 
items  of  the  nev  index  entry 

s  USE— DIRECTORY— SW  PIC  S9(9)  COMP. 

-  indicates  that  the  directory  block  location 
oust  be  obtained  from  the  CONTROL  BLOCK 

2.  OUTPUT  ARGUMENT 

s  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return-code  -  zero  for  normal  status 

-  error  code  Indicating  cause  of 
failure 


c.  Branching  and  Error  Conditions 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

Note 

2,5 

33 

PSL 

Subsequent  processing 
bypassed 

is 

3 

27 

PSL 

Subsequent  processing 
bypassed 

is 

10 

25 

ERR 

Subsequent  processing 
bypassed 

is 

10 

41,34 

PSL 

Subsequent  processing 
bypassed 

is  1,2 

11 

24 

ERR 

Subsequent  processing 
bypassed 

is 

Notes  : 


(1)  See  description  of  module  ASBK  for  conditions  which 
cause  "Unable  to  assign  block"  condition. 

(2)  See  description  of  module  WRBK  for  conditions  which 
cause  "Unable  to  write  block"  condition. 
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2. 2. 1.3. 3. 2  CUXE  -  Change  an  Index 

The  module  CHXE  changes  the  data  pointers  and  the  UNIT 
TYPE  of  an  INDEX  ENTRY  in  a  PSL  INDEX  BLOCK.  It  is  assumed 
that  the  module  ASFL  has  been  called  to  allocate  the  section 
file.  Modules  that  call  the  CHXE  module  are  responsible  for 
setting  the  USE-DIRECTORY-SW  which  indicates  the  starting 
block  for  CHXE  processing,  either  the  CONTROL  BLOCK  or  the 
first  INDEX  BLOCK. 

a.  Program  Operations 

HIPO  diagram  1.3. 3. 2  describes  the  operation  per¬ 
formed.  Mo 8 1  of  the  CHXE  processing  is  similar  to  module  FDXE 
2. 2. 1.3. 3. 3.  In  step  8,  when  the  matching  unit  name  is 
located,  the  data  items  of  the  INDEX  ENTRY  are  replaced  by  the 
REQUESTED- INDEX-ENTRY .  In  step  9,  if  an  error  occurs  and  the 
INDEX  BLOCK  is  not  written,  the  INDEX  BLOCK  remains  unchanged. 

b.  Data  File  and  Table  Descriptions 

There  are  no  significant  files  or  tables  in  the 

module . 


1.  INPUT  ARGUMENTS 

•  F ILE-NBR  PIC  S9  (9)  COMP. 

-  file  number  of  section  file  where  INDEX 

is  to  be  searched 

•  REQUEST ED -BLOCK-NBR  PIC  S9(9)  COMP. 

-  starting  INDEX  BLOCK  of  CHXE  processing 

•  REQUESTED-INDEX-ENTRY 

-  see  section  for  definition 

-  data  items  to  replace  data  in  existing 

INDEX  ENTRY 

•  USE-DIRECTORY-SW  PIC  S9(9)  COMP. 

-  indicates  that  the  DIRECTORY  BLOCK  location 

must  be  obtained  from  the  CONTROL  BLOCK 
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CHXE  -  Change  an  Index  Entry 


2. 


OUTPUT  ARGUMENTS 


•  PROCESSING-STATUS  PIC  S9(9)  COMP, 

(return  code) 

-  zero  for  normal  status 

-  error  code  Indicating  cause  of  failure 


c.  Branching  and  Error  Conditions 


Func  t ion 

Condition 

Message 

Program 

Reference 

Code 

Category 

Action 

Note 

1.4 

33 

PSL 

Subsequent  processing 
bypassed 

1.4 

29,7 

ERR 

Subsequent  processing 
bypassed 

2 

27 

PSL 

Subsequent  processing 
bypassed 

9 

3A 

PSL 

Subsequent  processing 
bypassed 

10 

26 

ERR 

Subsequent  processing 
bypassed 

2. 2. 1.3. 3. 3  FDXE  -  Find  an  Index  Entry 

The  module  FDXE  accesses  the  PSL  CONTROL  BLOCK  and  the 
PSL  INDEX  BLOCK  of  a  PSL  Section  File  to  find  data  unit.  The 
module  FDXE  is  called  by  various  PSL  modules.  In  normal 
processing  the  module  ASFL  is  called  prior  to  calling  the 
FDXE  module.  The  module  ASFL  allocates  the  PSL  Section  File 
for  access  by  the  FDXE  module. 

Modules  that  call  the  FDXE  module  are  responsible  for 
setting  the  USE— D IRECTORY— SW  which  indicates  the  starting  block 
of  the  FDXE  processing,  either  at  the  PSL  CONTROL  BLOCK  or  the 
first  PSL  INDEX  BLOCK. 


a.  Program  Operations 


RIPO  diagram  1.3. 3. 3  describes  the  operation  performed. 
In  step  1,  if  a  directory  block  of  a  PSL  Section  File  Is  to  be 
read  by  the  FDXE  processing,  the  PSL  CONTROL  BLOCK  must  be  read 
to  obtain  the  location  of  the  directory  block.  In  step  5,  the 
PSL  INDEX  BLOCK  may  contain  as  many  as  17  entries.  The  number 
of  actual  entries  is  stored  at  the  beginning  of  the  index  block. 
In  step  6,  an  index  entry  may  contain  the  location  of  another 
PSL  INDEX  BLOCK  (refer  to  module  ADXE) . 


The  FDXE  processing  reads  through  the  index  block 
looking  for  matching  unit  names  or  a  unit  name  which  has  a 
higher  collating  value  than  the  request  unit  name.  If  index 
blocks  are  chained  to  other  index  blocks  the  FDXE  processing 
will  read  through  the  chained  blocks  in  order  to  satisfy  the 
previous  condition. 


b.  Data  File  and  Table  Descriptions 

There  are  no  significant  files  or  tables  in  this 

module . 


1.  INPUT  ARGUMENT 

•  FILE-NBR  pic  S  9 ( 9 )  COMP. 

-  file  number  of  section  file  where  INDEX  BLOCK 

is  to  be  searched 

•  INPUT-UNIT-NAME  PIC  X(30). 

-  name  of  unit  to  be  found  in  INDEX  BLOCK 
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•  USE-DIRECTORY-SW 


PIC  S9 ( 9 )  COMP 


r 


Ki 


I 

1 

I 

I 

I 

I 


-  indicates  that  the  DIRECTORY  BLOCK  location 

must  be  obtained  from  the  Control  Block 
stored  data 

2.  OUTPUT  ARGUMENTS 

•  REQUESTED-INDEX-ENTRY 

-  see  section  fjr  definition  data  items  that 

compose  an  INDEX  ENTRY  for  a  data  unit  in  a 
PSL  INDEX  BLOCK 

•  BLOCK-NBR  PIC  S9(9)  COMP. 

-  INDEX  BLOCK  where  FDXE  processing  stopped 

•  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  normal  status 

-  error  code  indicating  cause  of 
failure 


Branching  and  Error  Conditions 


Func  t ion 
Ref  ernece 


Condit ion 
Code 


Message 

Category 


Program 

Action 


Note 


1,4 

33,31 

PSL 

2 

27,31 

PSL 

8 

0 

PSL 

9 

26 

PSL 

Subsequent  processing  la 
bypassed 

Subsequent  processing  is 
bypassed 

NORMAL-PROCESSING 

Subsequent  processing 
continues 
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2. 2. 1.3. 3. 4  DLXE  -  Delete  an  Index  Entry 

The  module  DLXE  deletes  an  INDEX  ENTRY  from  the  INDEX  BLOCK 
of  a  PSL  section  file.  It  is  assumed  that  the  module  ASFL  has 
been  called  to  allocate  the  section  file.  Modules  that  call 
the  DLXE  module  are  responsible  for  setting  the  USE-DIRECTORY- 
SW  which  indicates  the  starting  block  for  DLXE  processing, 
either  the  CONTROL  BLOCK  or  the  first  INDEX  BLOCK. 

a.  Program  Operations 

HIPO  diagram  1.3. 3. 4  describes  the  oeprations 
performed.  Most  of  the  DLXE  processing  is  similar  to  module 
FDXE  2. 2. 1.3. 3. 3.  In  step  8,  when  the  matching  unit  name  is 
located,  the  INDEX  ENTRY  is  cleared,  the  number  of  entries  in 
the  block  is  reduced,  and  the  block  is  compressed  and  re-written. 

b.  Data  File  and  Table  Descriptions 

There  are  no  significant  fil«s  or  tables  in  this  module. 

1.  INPUT  ARGUMENTS 

•  F ILE-NBR  PIC  S9  (9)  COMP. 

-  file  number  of  section  file  where  INDEX  BLOCK 

is  to  be  searched 

•  BLOCK-NBR  PIC  S9(9)  COMP. 

-  INDEX  BLOCK  initialized  to  zero 

•  INPUT-UNIT-NAME  PIC  X(30). 

-  name  of  unit  in  INDEX  BLOCK  to  be  deleted 

•  USE-DIRECTORY-SW  PIC  S9(9)  COMP. 

2.  OUTPUT  ARGUMENT 

•  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  normal  status 

-  error  code  indicating  cause 
of  failure 
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Branching  and  Error  Conditions 


Func  t ion 
Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

Note 

1,4 

33 

PSL 

Subsequent  processing 
bypassed 

1,4 

7 

ERR 

Processing  terminates 

2 

27 

PSL 

Subsequent  processing 
bypassed 

2 

7 

ERR 

Processing  terminates 

7 

26 

ERR 

Subsequent  processing 
bypassed 

8 

26 

ERR 

Subsequent  processing 
bypassed 

8 

34 

PSL 

INDEX  BLOCK  remains 
unchanged.  Subsequent 
processing  bypassed 

1 

Note: 

(1) 

See  description  of  modu 
cause  "unable  to  write 

le  WRBK  for  conditions  which 
block"  conditions. 
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2. 2. 1.3. 3. 5  RDXX  -  Read  an  Index  Entry 

The  module  RDXX  obtains  a  PSL  INDEX  ENTRY  by  sequentially 
reading  through  an  INDEX  BLOCK.  Each  call  to  the  module  RDXX 
will  obtain  the  next  INDEX  ENTRY  of  the  INDEX  BLOCK  in  the  PSL 
section  file.  The  RDXX  processing  preserves  the  pointers  to 
the  section  file  and  INDEX  BLOCKS  for  subsequent  calls.  It  is 
assumed  that  the  module  ASFL  has  been  called  to  allocate  the 
section  file.  Modules  that  call  the  module  RDXX  are  responsible 
for  setting  the  USE-D IRECTORY-SW ,  which  indicates  the  starting 
block  for  RDXX  processing,  either  the  CONTROL  BLOCK  or  the  first 
INDEX  BLOCK. 


a.  Program  Operations 

HIPO  diagram  1.3. 3. 5  describes  the  operation  performed. 
In  step  1,  if  a  directory  block  of  a  PSL  section  file  is  to  be 
read  by  the  RDXX  processing,  the  PSL  CONTROL  BLOCK  must  be  read 
to  obtain  the  location  of  the  directory  block.  In  step  3,  if 
the  INDEX  BLOCK  contains  no  entries  or  the  last  entry  has’been 
obtained,  then  a  stored  block  pointer  is  retrieved  from  the 
STACK-ARRAY  and  the  BUFFER  ARRAY  is  searched  for  the  retrieved 
block  pointer.  If  the  INDEX  BLOCK  is  in  the  buffer  array  it 
is  accessed,  otherwise,  the  INDEX  BLOCK  is  read  via  the  module 
BK.  In  step  11,  if  an  INDEX  ENTRY  points  to  a  lower  INDEX 
BLOCK,  the  block  location  and  entry  pointer  are  stored  in  the 
stack-array  and  the  index  block  itself  is  stored  in  the  buffer- 
array.  Then,  the  lower  INDEX  BLOCK  is  read. 

b.  Data  File  and  Table  Descriptions 

•  01  BUFFER-ARRAY 


05  BUFFERS  OCCURS  4  TIMES 
-  INDEXED  BY  S EARCH-PTR 
10  BUFFER. 


15  BUFFER-BLOCK-NBR  PIC  S9(9)  COMP. 

-  location  of  INDEX-BLOCK 
10  FILLER  PIC  x ( 7  6  2 ) . 

-  stored  INDEX-BLOCK 
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•  01  STACK-ARRAY 


05  STACK-ENTRY  OCCURS  100  TIMES 

10  BLOCK— NBR- IN -STACK-ENTRY  PIC  S9(9)  COMP. 

-  location  of  INDEX  BLOCK 

10  INDEX-PTR- IN -STACK-ENTRY  PIC  S9(9)  COMP. 

-  pointer  to  INDEX  ENTRY 

1.  INPUT  ARGUMENTS 

•  FILE-NBR  PIC  S9 (9 )  COMP. 

-  file  number  of  the  section  file  where 

INDEX  BLOCK  Is  to  be  searched 

•  USING-DIRECTORY-SW  PIC  S9(9)  COMP. 

-  indicates  that  the  directory  block  location 

must  be  obtained  from  the  CONTROL  BLOCK 
stored  data 

2.  OUTPUT  ARGUMENTS 

•  REQUESTED-INDEX-ENTRY 

-  see  section  3  for  definition 

-  data  items  correspond  to  INDEX  ENTRY 

data  item 

•  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  normal  block 

-  error  code  indicating  cause 
of  failure 
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Branching  and  Error  Conditions 


Function 

Reference 

Condition 

Code 

Message 

Category 

1 

27,33 

PSL 

3 

33 

PSL 

3 

50 

ERR 

7 

33 

PSL 

13 

33 

PSL 

Program 

Action _ Note 


Subsequent 

processing 

bypassed 

Subsequent 

processing 

bypassed 

Subsequent 

processing 

bypassed 

Subsequent 

processing 

bypassed 

Subsequent 

processing 

bypassed 

Note : 


(1)  The  above  error  conditions  will  cause  the  module  RDXX 
a  return  code  value  51  "Unable  to  read  INDEX". 
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2. 2. 1.4  Executive  Operating  System  Interface  Routines 

The  modules  in  this  subdivision  of  the  PSL  system  are 
used  to  interface  with  the  Univac  1100  Series  Operating 
System  for  communicating  with  the  file  control  system. 

2. 2. 1.4.1  Setup  Parameter  Routines 

Except  for  the  Function  "obtain  user  ID"  (OBUSE) ,  all 
functions  resulting  in  the  execution  of  an  executive  request 
to  the  operating  system  is  setup  by  the  multi-entry  point 
COBOL  module  ALLOCATOR.  This  module  is  described  as  follows: 
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2. 2. 1.4. 1.1  ALLOCATOR  -  Process  Parameters 

The  functions  at  the  various  entry  points  In  the  module 
ALLOCATOR  build  the  appropriate  Input  needed  by  the  assembly 
language  modules  to  invoke  the  required  executive  request. 

a.  Program  Operations 

H1P0  diagram  1.4. 1.1  through  1.4. 1.7  describe  the 
program  operation  for  each  entry  point  routine  within  the 
module  ALLOCATOR. 

b.  Data  File  and  Table  Descriptions 

•  01  FMS-PARAMETER-RECORD. 


05 

05 

05 

05 

05 

05 

05 

05 

05 

05 


PRIME-KEYWORD. 

10  PRIME-KW-CHARACTER  OCCURS  12  TIMES 

PIC  X  . 

FILLERD  REDEFINES  PRIME-KEYWORD. 

10  SHORT-PRIME-KEYWORD  PIC  X(4)  . 

10  FILLER  PIC  X  (8)  . 

SUB-KEYWORD . 

10  SUB-KW-CRARACTER  OCCURS  12  TIMES 

PIC  X  . 

FILLERE  REDEFINES  SUB-KEYWORD. 

10  SHORT -SUB-KEYWORD  PIC  X(4)  . 

10  FILLER  PIC  X  (8)  . 

LENGTH -OF-VALUE  PIC  S9(9)  COMP. 

KEYWORD-VALUE . 

10  KW-VALUE-CHARACTER  OCCURS  48  TIMES 

PIC  X  . 

FILLERF  REDEFINES  KEYWORD-VALUE. 


10  SHORT-KEYWORD-VALUE 
10  FILLER 
LAST-PRIME-KW-SW 
88  LAST-PRIME-SW 
LAST-SUB-KW-SW 
88  LAST-SUB-KW 
LAST-KW-VALUE-SW 
88  LAST-KW-VALUE 


PIC  X (4 )  . 

PIC  X (44 )  . 

PIC  S9 (9 )  COMP. 

VALUE  1. 

PIC  S9  (9 )  COMP. 

VALUE  1. 

PIC  S9  (9)  COMP. 
VALUE  1 . 


e  01  ERROR-MESSAGE-TABLE. 

05  FILLER  PIC  X(54) 

VALUE  'REQUEST  REJECTED-UNDEFINED  ERROR'. 
05  FILLER  PIC  X(54) 

VALUE  'REQUEST  REJECTED-UNDEFINED  ERROR'. 
05  FILLER  PIC  X(54) 

VALUE  'REQUEST  REJECTED-UNDEFINED  ERROR’. 
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05 

FILLER 

PIC  X ( 5 4 ) 

VALUE  'REQUEST 

REJECTED-UNDEFINED  ERROR'. 

05 

FILLER 

PIC  X (54) 

VALUE  'REQUEST 

REJECTED' . 

05 

FILLER 

PIC  X(54) 

VALUE  'REQUEST 

REJECTED-F  CYCLE  CONFLICT'. 

05 

FILLER 

PIC  X ( 54 ) 

VALUE  'REQUEST 

REJECTED-FILE  DISABLED’. 

05 

FILLER 

PIC  X ( 54 ) 

VALUE  'REQUEST 

REJECTED-FILE  DISABLED'. 

05 

FILLER 

PIC  X(54) 

VALUE  'REQUEST 

REJECTED-FILE  DISABLED'. 

05 

FILLER 

PIC  X  (54 ) 

VALUE  'REQUEST 

REJECTED-EQUIPMENT  REQUESTED  IS  DOWN'. 

05 

FILLER 

PIC  X (54 ) 

VALUE  'REQUEST 

REJECTED-WRITE  ONLY  FILE’. 

05 

FILLER 

PIC  X (54) 

VALUE  'REQUEST 

REJECTED-READ  ONLY  FILE'. 

05 

FILLER 

PIC  X  (54) 

•  i* 

VALUE  'REQUEST 

REJECTED-EQUIPMENT  IS  TAPE'. 

4' 

- 

05 

FILLER 

PIC  X(54) 

VALUE  'REQUEST 

REJECTED-PROJECT  ID  INCORRECT'. 

- 

05 

FILLER 

PIC  X ( 54 ) 

VALUE  'REQUEST  REJECTED-UNASS IGNED  FILE  NOT  DECATALOGUED ' . 

05 

FILLER 

PIC  X ( 54 ) 

VALUE  'REQUEST 

REJECTED-FILE  BUSY, TRY  AGAIN'. 

05 

FILLER 

PIC  X (54 ) 

VALUE  'REQUEST 

REJECTED-FILE  BUSY, TRY  AGAIN*. 

05 

FILLER 

PIC  X (54) 

VALUE  'REQUEST 

REJECTED-OPTION  CONFLICT'. 

05 

FILLER 

PIC  X (54) 

VALUE  'REQUEST 

REJECTED-FACILITY  BUSY, TRY  AGAIN'. 

05 

FILLER 

PIC  X ( 54 ) 

VALUE  'REQUEST 

REJECTED-FILE  ROLLED  OUT’. 

* 

05 

FILLER 

PIC  X ( 54 ) 

?» 

VALUE  'REQUEST 

REJECTED-INCORRECT  REEL/ PACK-ID  '  . 

>4 

05 

FILLER 

PIC  X  (54) 

■5 

VALUE  'REQUEST  REJECTED-FILENAME  NOT  IN  MASTER  DIRECTORY'. 

£ 

* 

05 

FILLER 

PIC  X(54) 

VALUE  'REQUEST 

REJECTED-NO  WRITE  KEYS  EXIST'. 

l 

05 

FILLER 

PIC  X (54 ) 

•» 

VALUE  'REQUEST 

REJECTED-NO  READ  KEYS  EXIST'. 

05 

FILLER 

PIC  X (54) 

VALUE  'REQUEST 

REJECTED-INCORRECT  KEY'. 

05 

FILLER 

PIC  X(54 ) 

REJECTED-INCORRECT  KEY'. 

j 

VALUE  'REQUEST 

\ 

05 

FILLER 

PIC  X (54 ) 

VALUE  'REQUEST 

REJECTED-INCORRECT  KEY’. 

05 

FILLER 

PIC  X ( 54 ) 

VALUE  'REQUEST 

REJECTED-INCORRECT  KEY'. 

2-367 


•rR  •  "/fin  i 


05 

FILLER 

PIC  X (54) 

VALUE  ’REQUEST 

REJECTED-FILE  ALREADY  EXCLUSIVE'. 

05 

FILLER 

PIC  X (54) 

VALUE  ’REQUEST 

REJECTED-INTERNAL  FILENAME  NOT  UNIQUE' 

05 

FILLER 

PIC  X (54) 

VALUE  'REQUEST 

REJECTED-UNDEFINED  ERROR'. 

05 

FILLER 

PIC  X  (54) 

VALUE  'REQUEST 

REJECTED-EQUIPMENT  NOT  COMPATIBLE'. 

05 

FILLER 

PIC  X (54 ) 

VALUE  'REQUEST 

REJECTED-FILE  PREVOUSLY  CATALOGUED*. 

05 

FILLER 

PIC  X (54) 

VALUE  'REQUEST 

REJECTED-FILE  ALREADY  ASSIGNED'. 

05 

FILLER 

PIC  X(54) 

VALUE  'REQUEST 

REJECTED-HARDWARE  NOT  PART  OF  SYSTEM'. 

05 

FILLER 

PIC  X  (54 ) 

VALUE  'REQUEST 

NOT  ACCEPTED' . 

•  01  ERMSG-TABLE-ENTRY  PIC  X(54)  OCCURS  36  TIMES. 

1.  INPUT  ARGUMENTS 

FMS -PARAMETER-RECORD 

-  See  data  file  for  description 

-  Contains  track  sizes  for  files 

•  01  FMS -CATALOG— FILE- STRING 

05  FMS-CATALOG-FILE-ENTRIES  . 


10 

FMS 

-PROJECT-ENTRY. 

15 

FMS-PRO JECT-NAME 

PIC 

X  (12)  . 

15 

FMS -PRO JECT-P AS SWORD 

PIC 

X(12)  . 

10 

FMS 

-LIB-SEC-ENTRY. 

15 

FMS-LIB-S  EC -NAME 

PIC 

X  (12)  . 

15 

FMS-L IB- SEC-PAS  SWORD 

PIC 

X  (12)  . 

10 

FMS 

-UNIT-ENTRY . 

15 

FMS-UNIT -NAME 

PIC 

X  ( 1 2  )  . 

15 

FMS -UN IT-PAS  SWORD 

PIC 

X  (1 2  )  . 

FMS 

-END 

-OF-CATALOG-F I LE -STRING 

PIC 

X  (  1 2  ) 

VALUE  HIGH-VALUES 

-  Contains  the  external  filename 

FILE  CODE  PIC  X ( 2 ) 

-  Contains  the  internal  filename 
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OUTPUT  ARGUMENTS 


PROCESSING-STATUS 


PIC  S9  (9 )  COMP. 


01  TRACKS-ASS IGNED  REDEFINES  PROCESSING-STATUS. 

05  INITIAL-TRACKS  PIC  9(4)  COMP. 

05  MAX-TRACKS  PIC  9(4)  COMP. 

Return  code  -  zero  for  normal  status  **QYFLE  returns 
zero  for  tracks  assigned  for  abnormal 
status 

-  error  code  indicating  cause  of  request 
rejection  **QYFLE  returns  track  sizes 
assigned  for  normal  status 

01  EXECUTIVE-REQUEST-STATEMENT. 


05 

EXEC-OPERATOR 

PIC 

X  (5  ) 

VALUE 

SPACES 

05 

EXEC-OPTION 

PIC 

X  (2) 

VALUE 

SPACES 

05 

FILLER 

PIC 

X(l) 

VALUE 

SPACE. 

05 

EXEC-FILE-NAME. 

10  EXEC-FILE-CHAR 

PIC 

X(l) 

OCCURS 

05 

EXEC-OPERANDS . 

10  EXEC-PARMS. 

15  EXEC-TYPE 

PIC 

X(2). 

15  EXEC-RESRV-LGTH . 

20  EXEC-RESRV-LENGTK  PIC  X(l)  OCCURS  6  TIMES 
15  EXEC-MAX-LENGTH. 

20  EXEC-MAXLGT2  PIC  X(l)  OCCURS  4  TIMES 

05  FILLER  PIC  X (5)  VALUE  '  .  .  ’ . 

-  Used  as  input  to  called  executive  request  routine 

Branching  and  Error  Conditions 


Function  Condition  Message  Program 

Reference _ Code _ Category _ Action _ 

200-236  FMS  Subsequent  processing 

continues 


No  te 


Note 


(1)  See  Sperry  Univac  1100  Series  Executive  System 

Diagnostic  Messages  ant:  Status  Codes  'Facility  Status 
Bits  Table’  for  specific  conditions  which  cause  the 
error . 
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2. 2.1. A. 2  Executive  Request  Routines 

The  modules  whose  operations  invoke  the  Executive  Request 
Functions  of  the  Univac  1100  Operating  System  are  written  in 
Univac  1100  Assembler  (Fieldata)  language.  HIP0  diagrams 
1.4. 2.1  through  1.4. 2. 3  depict  the  program  operations  of  each 
such  required  module. 


SECTION  3.  INPUT/OUTPUT  DESCRIPTIONS 


3.1  General  Description 

The  Input  to  the  PSL  system  consists  of  directives  on  Input 
cards  (PSL  function  cards)  and  data  from  the  user's  libraries. 

A  PSL  directive  which  la  submitted  as  a  batch-input  data  card 
contains  the  name  of  the  function  requested  and,  If  appropriate, 
sets  of  keywords  and  value  entries.  The  user's  own  program  and 
data  cards  may  be  Interspersed  with  the  PSL  function  cards. 

The  output  of  the  PSL  system  consists  mainly  of  user  data  which 
are  stored  according  to  data  format  In  pre-deflned  flies  (PSL 
Sections)  and  management  data  reports.  The  PSL  system 
manipulates  the  data  for  each  section  appropriately  for  that 
type  of  data.  The  names  of  a  section  Is  one  of  the  following 
pre-deflned  section  names: 


a . 

SOURCE 

- 

source  code  statements. 

b. 

OBJECT 

- 

object  module  Indexes  and 
accounting  records. 

c . 

LOAD 

- 

load  module  Indexes  and 
accounting  records. 

d  . 

LINK 

- 

collector  control  cards. 

e . 

JOB 

- 

job  ocntrol  cards  used  during 
execution  of  user  prop’-am. 

f . 

TEST 

- 

test  data  for  use  by  user  program. 

8- 

PDL 

- 

program  design  language  statements. 

h. 

TEXT 

- 

documentation . 

1. 

MGMT 

- 

management  data. 

J  • 

USER 

- 

PSL/non-PSL  generated  user  data. 

k . 

PROGRAM 

- 

relocatable  and  absolute  elements. 

Management 
ment  data 
of  automat 
according 

data  r 
units . 
lcally 
to  the 

eports  print  the  contents  of  one  or  more  manage 
Management  data  units  may  contain  a  comblnatlo 
collected  data  and  manually  Input  data  combined 
user-defined  format  unit. 

3.2  Characteristics  and  Description  of  System  Data 
3-2.1  PSL  Function  Cards 

Processing  within  the  PSL  system  is  determined  by  control  cards 
(Function  Cards)  read  by  the  Batch  Control  System  (BCTLE) .  As 
PSL  function  cards  are  read,  the  BCTLE  passes  control  to  one  of 
the  functional  subroutines.  When  a  functional  subroutine 
completes  its  processing,  control  is  returned  to  the  BCTLE 
which  continues  to  read  PSL  function  cards  and  execute  functional 
subroutines  until  all  cards  have  been  processed. 

The  PSL  function  card  contains  the  name  of  the  functional  sub¬ 
routine  to  be  called  and  keyword  value  parameters,  if  required. 

At  program  execution,  the  PSL  function  cards  are  read  and  the 
keyword  values  specified  are  stored  in  the  INPUT-CARD-KEYWORD- 
VALUE  table  for  processing  by  the  called  functional  subroutine. 
The  INPUT-CARD-KEYWORD-VALUE  table  (see  Section  2. 2. 1.2. 6. 2  for 
description)  is  built  by  the  Obtain  Keyword  subfunction  (OBKWE) 
and  is  made  available  to  other  subfunctions  of  the  PSL  system. 

3.2.2  Types  of  Data  Sections  and  Contained  Data 

The  PSL  project  library  can  support  ten  different  data  sets 
for  the  storing  of  user  data. 

The  following  paragraphs  briefly  describe  the  function  and 
content  of  each  of  the  project  library  data  sets. 


SOURCE 

Contains  the  units  of  source  code 
defined  for  the  different  PSL  supported 
languages.  It  serves  as  input  to  the 
precompilers  during  compilation  of  a 
program. 

OBJECT 

Contains  the  object  module  index  and 
accounting  records.  It  serves  as 
locator  for  object  modules  stored  in 
PROGRAM  section. 

LINK 

Contains  the  control  cards  to  direct 
the  collector  in  building  the  project 
load  modules.  The  resulting  load 
module  is  recorded  in  the  LOAD 
section,  and  stored  in  the  PROGRAM 
sect  ion . 
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d  .  LOAD 


e .  JOB 


f.  TEST 

g.  MGMT 


h.  TEXT 


i  .  PDL 


j .  USER 


Contains  the  load  module  index  and 
accounting  records.  Load  modules 
recorded  in  this  section  may  be 
executed  by  standard  job  input  state¬ 
ments  (which  are  stored  in  the  JOB 
section)  or  may  be  called  or  invoked 
by  other  programs. 

Contains  job  control  statements  which 
are  used  to  control  execution  of 
programs  being  developed  and  other 
programs  used  to  support  the  PSL.  Data 
from  this  section  is  used  to  build  a 
job  stream  for  input  to  the  computer. 

Contains  data  used  in  testing  programs 
under  development  or  maintenance. 

Contains  management  data  related  to 
program  development  and  maintenance. 
This  data  is  used  in  the  generation  of 
management  reports  and  summaries. 

Contains  any  textual  type  information. 
Data  from  this  file  may  be  used  for 
various  types  of  program  or  system 
documentation . 

Contains  the  program  design  language 
statements.  Data  from  this  file  may  be 
used  for  design,  program  documentation 
and  system  verification. 

Contains  data  generated  by  non-PSL 
functions. 


k.  PROGRAM  -  Contains  all  object  and  load  modules 

(relocatable  and  absolute  elements). 


A  section  in  a  library  under  the  PSL  system  is  created  in 
the  format  of  a  PSL  Standard  File  containing  128-word  blocks 
and  is  catalogued  under  the  User's  project.  The  first  block 
in  the  file  is  the  Control  Block  and  contains  information 
pertinent  to  the  entire  section  such  as  the  section  name,  user 
specified  options,  file  size,  first  index  block  number  and  space 
allocation  flags.  Pointers  to  the  location  of  each  data  unit 
within  the  section  are  stored  in  the  index  block.  The 
organization  is  shown  in  Table  3-1.  However,  the  PROGRAM 
section  is  not  a  PSL  Standard  File  but  is  a  Sperry  Univac  1100 
series  standard  Program  file. 
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3.2.3  Management  Data 

The  Management  Data  Collection  and  Reporting  subsystem  of  the 
PSL  includes  those  activities  which  are  related  to  the 
acquiring  and  reporting  of  management  data.  A  management  plan, 
stored  as  a  unit  in  the  management  data  section,  is  used  to 
describe  the  hierarchical  structure  of  the  management  data 
reports.  Individual  units  defined  by  level  contain  information 
which  determines  the  order  and  source  of  data  items  to  be 
collected  and  summarized. 

Data  associated  with  modules  may  be  obtained  from  two  sources; 
namely,  the  unit  accounting  record  and  by  manual  input.  Manual 
data  may  be  added,  changed  or  deleted. 

Manual  inputs  are  also  made  to  maintain  exception  checking 
specifications;  i.e.,  two  numeric  data  items  at  the  same 
format  level  may  be  subjected  to  a  value  variance  check.  The 
data  item  values  are  compared  at  the  time  the  data  is  collected 
and  a  determination  made  as  to  whether  an  exception  exists, 
pertinent  information  is  added  to  the  data  collection  unit  so 
that  management  reports  may  flag  the  excepted  data  item. 

The  data  collection  activity  specified  in  the  management  plan 
automatically  verifies  and  cr o s s -re la t e s  plan  level  elements, 
format  requirements  and  data  source  availability. 

Management  reports  are  generated  using  the  collected  data. 

The  report  format  provides  identification  of  the  level  data 
and  the  specific  items  for  which  values  are  printed. 

The  Management  Data  Section  is  composed  of  units  which  contain 
the  folio  wing  types  of  data. 

Management  Data  Plan  Unit  -  This  unit  defines  the  manage¬ 
ment  data  report  structure. 

Management  Data  Format  Unit  -  The  unit  defines  the  data 
items  that  may  be  reported  at  the  following  levels: 

System  level 
Subsystem  level 
Module  level 
Job  level 
Unit  level 
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PROJECT  DESCRIPTION 
PROJECT  START  DATE 
ESTIMATED  COMPLETION  DATE 
ACTUAL  COMPLETION  DATE 

PLANNED  AVERAGE  YEARS  EXPERIENCE  MANAGERS 

PLANNED  AVERAGE  YEARS  EXPERIENCE  ANALYSTS 

PLANNED  AVERAGE  YEARS  EXPERIENCE  PROGRAMMERS 

PLANNED  AVERAGE  YEARS  EXPERIENCE  ADMINISTRATIVE 

PLANNED  AVERAGE  YEARS  EXPERIENCE  OTHER 

ACTUAL  AVERAGE  YEARS  EXPERIENCE  MANAGERS 

ACTUAL  AVERAGE  YEARS  EXPERIENCE  ANALYSTS 

ACTUAL  AVERAGE  YEARS  EXPERIENCE  PROGRAMMERS 

ACTUAL  AVERAGE  YEARS  EXPERIENCE  ADMINISTRATIVE 

ACTUAL  AVERAGE  vuARS  EXPERIENCE  OTHER 

PLANNED  NUMBER  OF  MANAGERS 

PLANNED  NUMBER  OF  ANALYSTS 

PLANNED  NUMBER  OF  PROGRAMMERS 

PLANNED  NUMBER  OF  ADMINISTRATIVE 

PLANNED  NUMBER  OF  OTHER 

ACTUAL  NUMBER  OF  MANAGERS 

ACTUAL  NUMBER  OF  ANALYSTS 

ACTUAL  NUMBER  OF  PROGRAMMERS 

ACTUAL  NUMBER  OF  ADMINISTRATIVE 

ACTUAL  NUMBER  OF  OTHER 

ESTIMATED  PERSONNEL  TURNOVER  RATE 

ACTUAL  PERSONNEL  TURNOVER  RATE 

ESTIMATED  LOCAL  TRAVEL 

ACTUAL  LOCAL  TRAVEL 

ESTIMATED  DISTANT  TRAVEL 

ACTUAL  DISTANT  TRAVEL 

ESTIMATED  WORKING  CONDITIONS 

ACTUAL  WORKING  CONDITIONS 

PLANNED  PROGRAMMING  LANGUAGE  EXPERIENCE 

ACTUAL  PROGRAMMING  LANGUAGE  EXPERIENCE 

PLANNED  SIMILAR  APPLICATION  EXPERIENCE 

ACTUAL  SIMILAR  APPLICATION  EXPERIENCE 

PLANNED  TARGET  COMPUTER  EXPERIENCE 

ACTUAL  TARGET  COMPUTER  EXPERIENCE 

ESTIMATED  CUSTOMER  APPLICATION  EXPERIENCE 

ACTUAL  CUSTOMER  APPLICATION  EXPERIENCE 

ESIMTATED  CUSTOMER  EQUIPMENT  EXPERIENCE 

ACTUAL  CUSTOMER  EQUIPMENT  EXPERIENCE 

ESTIMATED  COMPLEXITY  OF  PROJECT 

ACTUAL  COMPLEXITY  Or  PROJECT 

Table  3-2.  System  Level  Management  Data  Input 


3-6 


ESTIMATED  PAGES  DOCUMENTATION  FUNCTIONAL  SPECS 

ESTIMATED  PAGES  DOCUMENTATION  USER  GUIDE 

ESTIMATED  PAGES  DOCUMENTATION  TEST  SPECIFICATIONS 

ESTIMATED  PAGES  DOCUMENTATION  PROGRAM  LISTINGS 

ACTUAL  PAGES  DOCUMENTATION  FUNCTIONAL  SPECS 

ACTUAL  PAGES  DOCUMENTATION  USER  GUIDE 

ACTUAL  PAGES  DOCUMENTATION  TEST  SPECIFICATIONS 

ACTUAL  PAGES  DOCUMENTATION  PROGRAM  LISTINGS 

SYSTEM  NAME 

SUBSYSTEM  NAMES 

NUMBER  SUBSYSTEM  LEVELS 

NUMBER  PROGRAMS  FOR  SUBSYSTEMS 

ESTIMATED  NUMBER  OF  NON-OVERLAPPING  FIELDS 

ACTUAL  NUMBER  OF  NON-OVERLAPPING  FIELDS 

ESTIMATED  NUMBER  INPUT  FORMATS 

ACTUAL  NUMBER  INPUT  FORMATS 

ESTIMATED  AVERAGE  FIELDS  FOR  INPUT  FORMATS 

ACTUAL  AVERAGE  FIELDS  FOR  INPUT  FORMATS 

ESTIMATED  NUMBER  OUTPUT  FORMATS 

ACTUAL  NUMBER  OUTPUT  FORMATS 

ESTIMATED  AVERAGE  FIELDS  FOR  OUTPUT  FORMATS 

ACTUAL  AVERAGE  FIELDS  FOR  OUTPUT  FORMATS 

NUMBER  SYSTEM  TEST  RUNS  PLANNED 

NUMBER  SUCCESSFUL  SYSTEM  TEST  RUNS 

NUMBER  SYSTEM  TEST  RUNS  EXECUTED 

ITEM  TO  BE  DELETED  DURING  TESTS 

LINES  OF  SOURCE  CODE  INPUT 

NUMBER  OF  COMPILATIONS 

NUMBER  OF  LINES  IN  CYCLE 

NUMBER  OF  UPDATES  IN  CYCLE 

NUMBER  OF  UPDATES 

NUMBER  OF  UNITS 

AVERAGE  UNIT  SIZE 

MAXIMUM  UNIT  SIZE 

NUMBER  OF  MODULES 


Table  3-2.  System  Level  Management  Data  Input  (Cont.) 
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SUBSYSTEM  NAME 
LINES  OF  SOURCE  CODE  INPUT 
NUMBER  OF  MODULES 
NUMBER  OF  UNITS 
AVERAGE  UNIT  SIZE 
MAXIMUM  UNIT  SIZE 
AVERAGE  MODULE  SIZE 
MAXIMUM  MODULE  SIZE 
NUMBER  OF  LINES  IN  CYCLE 
NUMBER  OF  UPDATES  IN  CYCLE 
NUMBER  OF  UPDATES 
AVERAGE  NUMBER  OF  UPDATES 
MAXIMUM  NUMBER  OF  UPDATES 
CURRENT  CYCLE  DATE 
PREVIOUS  CYCLE  DATE 
MAN-MONTHS  OF  EFFORT  BUDGET 
MAN-MONTHS  OF  EFFORT  EXPENDED 
MATERIAL  COSTS  BUDGET 
MATERIAL  COSTS  EXPENDED 
PERSONNEL  COSTS  BUDGET 
PERSONNEL  COSTS  EXPENDED 
TRAVEL  COSTS  BUDGET 
TRAVEL  COSTS  EXPENDED 
COMPUTER  TIME  BUDGET 
COMPUTER  TIME  EXPENDED 
COMPUTER  COSTS  BUDGET 
COMPUTER  COSTS  EXPENDED 
MISCELLANEOUS  COST  BUDGET 
MISCELLANEOUS  COST  EXPENDED 


C 


I 


Table  3-3.  Subsystem  Level  Menegement  Date  Input 
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MODULE  NAME 

ORIGINATING  PROGRAMMER 
ORIGINATING  START  DATE 
LAST  MODIFIED  DATE 
PROGRAM  LANGUAGE 
LINES  OF  SOURCE  CODE  INPUT 
NUMBER  OF  UNITS 
AVERAGE  UNIT  SIZE 
MAXIMUM  UNIT  SIZE 
NUMBER  OF  LINES  ADDED 
NUMBER  OF  LINES  DELETED 
NUMBER  OF  LINES  CHANGED 
NUMBER  OF  COMPILATIONS 
NUMBER  OF  LINES  IN  CYCLE 
AVERAGE  UPDATE  CYCLE 
NUMBER  OF  UPDATES 
AVERAGE  NUMBER  OF  UPDATES 
MAXIMUM  NUMBER  OF  UPDATES 
CURRENT  CYCLE  DATE 
PREVIOUS  CYCLE  DATE 
LINES  OF  SOURCE  CODE  COPIED 
REAL  UNIT  COUNT 
STUB  UNIT  COUNT 

STRUCTURED  PROGRAM  ERROR  COUNT 
MODULE  TYPE 


Table  3-4  Module  Level  Management  Data 
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UNIT  TYPE 
LINE  SIZE 
INCLUDE  UNIT  NAME 
VERSION 
MODIFICATION 
DATE  ORIGINATED 
ORIGINATORS  NAME 
DATE  OF  LAST  UPDATE 
TIME  OF  LAST  UPDATE 
UNIT  LANGUAGE 
INCLUDE  COUNT 
LINES  IN  UNIT 

STRUCTURED  PROGRAM  ERROR  SWITCH 

LINES  ADDED  TO  UNIT 

LINES  CHANGED  IN  UNIT 

LINES  DELETED  IN  UNIT 

LINES  INPUT  TOTAL 

LINES  INPUT  CYCLE 

LINES  COPIED  IN  UNIT 

UPDATES  TOTAL 

UPDATES  CYCLE 

USER  WORK  AREA 


Tabic  3-5.  Unit  Level  Management  Data  Input 
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L 

l  PROGRAM  IDENTIFICATION 

JOB  NAME 

I  NUMBER  OF  RUNS 

|  NUMBER  OF  RUNS  FOR  CYCLE 

CURRENT  CYCLE  DATE 

.  PREVIOUS  CYCLE  DATE 

AVERAGE  TURNAROUND  TIME  PER  JOB 

I 


I 

I 

I 


I 

I 

I 

l! 

Tab 1«  3-6.  Job  Levol  MAnAgABAnt  DAtA  Input 


I 

0 

0 
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The  system  level  data  unit  contains  a  description  of  the 
system  parameters  and  a  list  of  the  subsystems  which  comprise 
the  system.  See  Table  3-2  for  a  list  of  valid  system  level 
parameters. 

The  subsystem,  module  and  unit  level  data  formats  contain  a 
description  of  the  parameters  unique  to  each  level.  A 
description  of  valid  parameters  for  each  level  is  contained 
in  Tables  3-3  through  3-6. 

Management  Data  Input  Units  -  This  unit  contains 
inserted  data  gathered  at  the  following  levels: 


a . 

System  description 

data . 

b. 

Subsystem  description  data. 

c . 

Module  description 

data . 

d. 

Job  information. 

Data  records,  as  manually  created  for  these  data  levels,  are 
placed  in  the  Management  Data  File.  Data  may  be  added, 
changed  or  deleted  from  an  existing  unit  in  the  file. 

Management  Data  Collection  Units  -  Management  data 
collection  is  supported  at  two  different  levels.  First, 
at  the  unit  level,  management  data  is  automatically 
collected  and  added  to  an  expanded  Unit  Accounting 
record.  This  collection  is  initiated  for  project  units 
as  they  are  built  with  the  management  data  option.  The 
second  level  of  management  data  describes  a  system, 
subsystem,  module  or  JOB.  This  data  is  manually  input 
to  the  Management  Data  file  for  the  project.  See 
Table  3-7  for  a  description  of  the  Management  Data 
Base  Structure. 

,  3.3  PSL  Copy  Library 

'  The  copyllb  unit  contains  a  collection  of  data  items  that  are 

used  by  various  PSL  functions  within  the  system.  The  copy 

y  library  definitions  reside  in  the  Source  Section  of  the 

library  under  the  unit  name,  CPYLIB. 

OThe  data  components  within  the  PSL  system  can  be  categorised 
as  being  one  of  the  following: 

0 
G 
0 
G 
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Applicable  *****  PSL  MGMT  Section  *  *  *  *  * 

PSL  Functione  _ _ _ 


Management  Data 

Plan  Unit  (MDCR-PLAN ) 

SYSTEM  -  B1GT0P 

JOB  -  BIG JOB 

SUBSYS-SUB1,  MODULE “MOD 1A,  MODULE-MOD1B 

SUBSYS-SUB2.  MODULE “MOD 2 A.  MODULE-MOD2B 

Management  Data 

Format  Units  (MDCR-FORMAT- ) 

MDFORMAT 

SYSTEM  SUBSYS 

;  MODULE  JOB  UNIT 

Management  Data 

Input  Units 

NDUPDATE 

MOXCHECK 

BIGTOP  BIG JOB 

SUB1  SUB2  MODIA  ETC. 

Management  Data 

Collection  Units 

MDCOLLECT 

MDCR- COLLECT ION 

MDCR-ARCHIVE-OOl- (DATE1) 

PURGE 

MDCR- ARCHIVE-002 -(DATE 2) 

MDCR -ARCHIVE-003- (DATE3) 

*  * 

*  *  *  PSL  SOURCE 

Section(s)  ***** 

Top  Units 

Included  Units 

ADD 

CHANGE 

MOD1A 

MOVE 

MODI  B 

REPLACE 

MOD2A 

PURGE 


M0D2B 


a.  data  used  or  generated  by  PSL  function 

b.  data  used  to  control  the  execution  flov  of  the 
system. 

c.  data  recorded  as  a  result  of  systm  monitoring. 

d.  data  used  to  generate  management  reports. 

The  data  items  in  CPYLIB  are  grouped  according  to  their  usage 
in  the  system  and  are  presented  alphabetically  by  group  name. 
The  various  groups  and  a  description  of  usage  of  each  group  is 
presented  below.  A  more  detailed  description  of  individual 
data  items  is  presented  in  Section  2  of  this  manual  under 
Data  File  and  Table  Descriptions  associated  with  each  function 
processor . 


Group  Label 


Usage  Description 


ACCESS-MODE 


Defines  the  types  of  permissible 
accesses  to  a  PSL  file. 


ACCESS-MODE-VALUE  Pre-defined  assignments  for 

sequential  and  random  accessing. 

ACCOUNTING-INFORMATION  Data  associated  with  each  unit, 

maintained  in  the  accounting 
record  and  which  reflects  all 
activity  performed  on  that  unit. 
Data  is  entered  automatically  at 
the  completion  of  each  activity. 

ADUN-LINK-NAMES  Collector  defined  program  modules 

processing . 


ALLOCATION-TYPE  Valid  allocation  types  that  may 

be  specifying  when  referencing 
a  file. 


ALLOCATION-TYPE-VALUE  Pre-defined  assignments  for  each 

type  of  allocation. 

BCTL-LINK-NAMES  Collector  defined  program  modules 

which  are  used  in  the  Batch 
Control  processing. 


CHANGE-RECORD 


Parameters  used  by  the  CHANGE 
function  when  modifying  the 
contents  of  a  unit. 


CHUN-LINK-NAMES 

CODE S-FOR-ACCESS -METHODS 

CODES-FOR-ADUN 

CODES -FOR- BCTL 

CODES- FOR- BKLB 

CODE  S-FOR-BKSC 

CODES-FOR-CHUN 

CODES- FOR- CMML 

CODES -FOR- CRSE 

CODES-FOR-DLUN 

CODES-FOR-ESPA 

CODES-FOR-EXPG 

CODE  S- FOR- FMS- SETUP 

CODES-FOR- INDEX-PROCESSING 


Collector  defined  program  modules 
which  are  used  In  the  CHANGE 
UNIT  processing. 

Error  codes  for  any  failures 
encountered  while  accessing  a 
PSL  block.. 

Error  codes  encountered  by  the 
ADD-A-UNIT  function. 

Error  codes  encountered  by  the 
main  control  module. 

Error  codes  encountered  by  the 
BACK-UP  LIBRARY  function. 

Error  codes  encountered  by  the 
BACK-UP  SECTION  function. 

Error  codes  encountered  by  the 
CHANGE  UNIT  function. 

Error  codes  encountered  by  the 
COMPILE  function. 

Error  codes  encountered  by  the 
CREATE  SECTION  function. 

Error  codes  encountered  by  the 
DELETE  UNIT  function. 

Error  codes  encountered  by  the 
ESTABLISH  PARAMETERS  function. 

Error  codes  encountered  by  the 
EXECUTE  PROGRAM  function. 

Error  codes  encountered  by  the 
file  management  parameter 
processor . 

Error  codes  encountered  by  the 
index  processing  module. 


CODES-FOR- ITPJ 


Error  codes  encountered  by  the 
INITIALIZE  PROJECT  function. 


Group  Ubtl 
CODES- FOR- LKPG 

CODE  S-FOR-MVUH 

CODES- FOR- PC LU 

CODES-FOR-PGUM 

CODES-FOR-PRAU 

CODES-FOR-PRCB 

CODE  S-FOR-PRDC 

CODES-FOR-PREPROCESS 

CODES-FOR-PRMR 

CODE  S-FOR-PRSD 

CODES-FOR-PRUN 

CODE S-FOR -READ- WRITE 

CODES-FOR-RPUN 

CODE S- FOR -RS LB 

CODES-FOR-SP-CHECK 

CODE S-FOR- STRUCTURES 


Usage  Description 

Error  codes  encountered  by  the 
LINK  PROGRAM  function. 

Error  codes  encountered  by  the 
MOVE  UNIT  function. 

Error  codes  encountered  by  the 
PROCESS  LOWER  UNIT  function. 


LINK 


UNIT 


Error 

codes 

encountered 

by 

the 

PURGE 

UNIT 

function . 

Error 

codes 

encountered 

by 

the 

PRINT 

AUTHOR  function. 

Error 

codes 

encountered 

by 

the 

PRINT 

COBOL 

function . 

Error 

codes 

encountered 

by 

the 

PRINT 

DOCUMENT  function 

• 

Error 

codes 

encountered 

by 

the 

PREPROCESS 

LINK  function. 

Error 

codes 

encountered 

by 

the 

PRINT  MANAGEMENT  REPORT  function. 

Error  codes  encountered  by  the 
PRINT  SOURCE  DATA  function. 

Error  codes  encountered  by  the 
PRINT  UNIT  function. 

Error  codes  encountered  during 
reading/wr lting  of  a  unit. 

Error  codes  encountered  by  the 
REPLACE  UNIT  function. 

Error  codes  encountered  by  the 
RESTORE  LIBRARY  function. 

Error  codes  encountered  by  the 
structured  code  check  processor. 

Status  and  error  codes  used 
during  processing  of  structured 
figures . 


W6 


I  f 


Group  Label 


Usage  Description 


CODE S- FOR- PG SC 


Error  codes  encountered  by  the 
PURGE  SECTION  function. 


CODES-FOR-WRAC 


Error  codes  encountered  during 
update  of  accounting  record. 


CODES- FOR- WRJB 


CONDITION- SETTINGS 


CONTROL-CARD 


DEFAULT-LINE S-PER-UN IT 


Error  codes  encountered  during 
control  card  processing. 

Pre-defined  assignments  for 
TRUE/FALSE  switches. 

Formats  of  the  various  control 
cards  generated  by  PSL. 

Default  value  for  maximum  number 
of  lines  per  unit. 


FILE-CONTROL-FOR-ACCESS 


FILE-NAMES 


FILE-SIZES 


FMS-CATALOG-FILE- STRING 


Names  each  file  used  in  the  non¬ 
spawn  environment  of  the  system. 

File  names  used  by  the  PSL 
system  when  Initializing  a  System/ 
Project  file. 

Initial  space  assignment  values 
for  each  type  of  section  file. 

Literal  used  for  specifying  a 
fully  qualified  FMS  file  name. 


FMS-VOLINFO 


HEADER-FOR-UNIT- LISTING 


Device  specification  for  a  file 

Report  title  line  for  PRINT 
UNIT  function. 


1  D 


INDEX-ENTRY 


INITIAL-PARAMETER 


INPUT-CARD 


Format  of  entry  in  index  block 
for  each  unit  maintained  by  PSL. 

User  Project  -  Identification 
Number . 

Workarea  for  storage  of  input 
data  cards. 


INPUT-CARD-KEYWORD-VALUE 


Describes  valid  parameters  for 
the  input  card . 


I TPJ- LINK-NAMES 


JCL-CARD 

JOB-CARD 


Collector  defined  program  modules 
which  are  used  in  the  INITIALIZE 
PROJECT  processing. 

Workarea  for  storage  of  input 
control  cards  by  **  JCL  function. 

Describes  valid  formats  for  PSL 
control  cards  . 


KEYWORD-CARD 

LANGUAGE-LINK-TABLE 

LANGUAGE-TABLE 

LENGTH-OF-KEYWORD-VALUE 

LINK-NAMES-FOR- BKLB 

LINK- NAMES -FOR- BKSC 


Cards  containing  keyword  values 
used  in  the  spawn  job  environment. 

Print  program  modules  used  by  the 
PSL  language  processor. 

Not  currently  used. 

Maximum  length  specifications  for 
standardized  keywords. 

Collector  defined  program  modules 
which  are  used  in  the  BACKUP 
LIBRARY  processing. 

Collector  defined  program  modules 
which  are  used  in  the  BACKUP 
SECTION  processing. 


Group  Label 
LINK-NAMES-FOR-CMML 


CR SC -LINK-NAME 


LINK-NAMES-FOR-DLUN 


Usage  Description 

Collector  defined  program  modules 
which  are  used  in  the  COMPILE 
processing . 


Collector  defined  program  modules 
which  are  used  in  the  CREATE 
SECTION  processing. 


Collector  defined  program  modules 
which  are  used  in  the  DELETE 
UNIT  processing. 


L INK-NAME S-FOR- IT SF 


Collector  defined  program  modules 
which  are  used  in  the  INITIALIZE 
STANDARD  FILE  processing. 


LINK-NAMES- FOR- LKPG 

LINK- NAME S-FOR- MV UN 

LINK-NAME S-FOR- PGSC 

LINK-NAMES-FOR-PRAU 

LINK-NAMES-FOR-PGUN 

LINK- NAME S-FOR- PRMS 

LINK-NAMES-FOR-RSLB 

MSG-DATA-FOR- ITSF 

MESSAGE-LINE 

MSG-NBRS -FOR- ITSF 

MV UN -UN IT -TYPE-VALUES 


Collector  defined  program  modules 
which  are  used  in  the  LINK 
PROGRAM  processing. 

Collector  defined  program  modules 
which  are  used  in  the  MOVE  UNIT 
processing . 

Collector  defined  program  modules 
which  are  used  in  the  PURGE 
SECTION  processing. 

Collector  defined  program  modules 
which  are  used  in  the  PRINT 
AUTHOR  processing. 

Collector  defined  program  modules 
which  are  used  in  the  PURGE  UNIT 
processing . 

Collector  defined  program  modules 
which  are  used  in  the  PRINT 
MESSAGE  processing. 

Collector  defined  program  modules 
which  are  used  in  the  RESTORE 
LIBRARY  processing. 

Error  messages  data  area  for  FMS 
accesses. 

Workarea  for  output  message 
processing . 

Error  codes  produced  by  the 
INITIALIZE  STANDARD  FILE  function. 

Unit  type  designators  for 
receiving/sending  units  processed 
by  MOVE  UNIT  function.  Related 
to  UNIT-TYPE-TABLE. 


Group  Label 
CODES-FOR-OBIC 

MSG-NBRS-FOR-BCTL 

PARAMETER-TABLE 

PRSD-LINK-NAMES 

PRXX- LINK-NAMES 

PSL-CARD- IDENTIFIER 

PSL- CONTROL- BLOCK 


PSL-DATA-BLOCK 


F  SL- INDEX- BLOCK 


RANDOM-FD 


PC LU- PROC E S  S- TYPE-VALUE 


Usage  Description 

Pre-deflned  status/error  codes 
produced  by  input  card  processing. 

Pre-defined  status/error  codes 
produced  by  the  main  control  unit. 


Used  to  store  PSL 
may  be  applied  to 
functions . 

Collector  defined 
which  are  used  in 
DATA  processing. 


parameters  that 
several  PSL 


program  modules 
the  PRINT  SOURCE 


Collector  defined  program  modules 
which  are  used  in  the  PRINT  INDEX 
processing . 


Prefix  for  columns  1-3  on  PSL 
function  input  cards  . 


Contains  information  pertinent  to 
the  entire  PSL  section,  such  as 
section  name,  user-selected 
options,  file  size,  and  the  block 
flags  used  to  control  the  space 
allotment  within  the  file. 


Contains  PSL  unit  data,  unit 
accounting  information,  and  unit 
control  Information. 


Contains  entries  pointing  to  the 
location  of  each  data  unit  within 
the  section. 


File  description  of  a  random  PSL 
file  giving  the  physical  structure 
iden  t if ica  t ion . 

Values  which  denotes  the  addition/ 
deletion  of  an  included  unit 
during  processing  of  a  unit. 


PROJECT- INDEX-ENTRY 

PROJECT-DIRECTORY-ENTRY 


RANDOM-RECORD 
REQUESTED- INDEX- ENTRY 

SC SG- LINK-NAME 


Usage  Description 


Default  print  classification. 


Default  print  values  for  listing 
of  units. 


Ststus/error  codes  returned  on 
file  access. 

Format  of  entries  in  the  project 
index  block. 

Format  of  entries  in  the  project 
directory  block. 

PSL  random  record  storage  area. 

Uorkarea  used  to  store  parameters 
needed  to  access  a  unit. 

Collector  defined  program  modules 
which  are  used  by  the  SCAN  STRING 
function . 


SECTION-OPTIONS  Table  containing  selected  section 

options  which  are  appropriate  for 
each  section  type. 

SECTION-TABLE  Table  of  valid  section  types  and 

their  associated  section  codes 
supported  by  PSL. 

STCF-STMF-LINK-NAMES  GMAP  program  names  used  by  the 

loader  in  the  SET  UP  TO  CREATE/ 
MODIFY  FILE  function. 


SUPPORT-LANGUAGE-TABLE  Table  of  languages  supported 

by  PSL. 

UNIT-CARD-RECORD  Unit  input  record  description. 

UNIT-LISTING-LINE  Unit  output  line  description 

132  charscter  print  line. 

UNIT-TAPE-RECORD  Unit  tape  output  record 

de  scr ipt ion . 
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Group  Label 
UNIT-TYPE-TABLE 

UNIT-TYPE-WORDS 

USER-TYPE-MASTER 


Usage  Description 

Defines  cypes  of  valid  units 
processed  by  the  PSL. 

Unit  types  name  descriptors. 

Defines  the  user  type  of  the 
first  project  directory  entry 
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SECTION  4.  PROGRAM  ASSEMBLING,  LOADING  AND  MAINTENANCE  PROCEDURES 

4.1  Programing  Support  Library  (PSL)  Structure 

The  entire  PSL  system  is  contained  in  one  program  file  (PSLPRG) .  The 
PSLPRG  program  file  is  composed  of  symbolic,  relocatable  and  absolute 
elements,  which  define  the  PSL  system.  The  PSL  system  is  functionally 
divided  into  operational  elements  and  maintenance  elements.  The  following 
naming  convention  is  Implemented  to  clarify  which  functional  area  is 
being  addressed. 

1.  The  qualifier  "PSL.’1  is  used  to  reference  the  operational  elements. 

2.  The  qualifier  "S."  is  used  to  reference  the  maintenance  elements. 

The  PSLPRG  program  file  may  be  saved  on  tape  with  standard  UNIVAC  backup 
utility.  The  program  file  may  be  restored  when  needed  for  system  maintenance. 

A  listing  of  the  element  table  for  PSLPRG  is  shown  in  Appendix  C. 

4.1.1  General  Information 

The  symbolic  elements  of  the  PSLPRG  program  file  contain  source  code, 

CPYLIB  (common  source  code),  collection  specifications,  test  data,  Installation 
procedures  and  general  procedures.  The  relocatable  elements  contain 
the  compiled  (assembled)  source  code  for  the  various  PSL  functions. 

The  absolute  elements  contain  collections  of  various  relocatable  elements 
needed  for  program  execution  and  PSL  processing.  The  operational  PSL 
system  is  composed  of  seven  absolute  elements  (PRMD,  PRPS,  CLMD,  BCTL, 

PPCB,  PPFT,  PPGL)  and  one  general  procedure  (RUN).  By  convention, 

"PSL."  is  the  qualifier  for  the  absolute  elements  and  the  project-id 
is  the  qualifier  for  the  procedure  "RUN". 

4. 1. 1.1  Symbolic  Elements 


The  symbolic  elements  in  the  PSLPRG  program  file  have  the  functions 
as  outlined  in  Sections  4. 1.1. 1.1  -  4. 1.1. 1.4 


The  elements  BCTLMAP2 , PRPSMAP , PPFTMAP , PRMDMAP , PPGLMAP , CLKDHAP  end  PRECBHAF 
specify  what  relocatable  elements  are  to  be  collected  for  the  varloua  PSL 
functions.  The  absolute  elements  which  these  elements  generate  are  BCTL, 
PRPS ,PPFT,PRMD,P?GL,CLMD  and  PRECOMPILER,  respectively.  The  main  program  is 
the  first  relocatable  element  nosed  in  the  map.  The  map  elements  collect 
modules  for  the  following  PSL  processing. 


a 

BCTLMAP  - 

Batch  control  processing 

b 

PRPSMAP 

Print  program  structure  processing 

c 

PPFTMAP 

Structured  FORTRAN  processing 

d 

PRMDMAP 

Print  MANAGEMENT  Data  processing 

e 

PPGLMAP 

General  preprocessor  processing 

f 

CLMDMAP 

Collect  MANAGEMENT  Data  processing 

S 

PRECBMAP3  - 

Structured  COBOL  processing 

The  following  example  shows  an  absolute  module  generation: 

@USE  PSL..PSLPRG. 

@PREP  PSL. 

9MAP  PSL. BCTLMAP,. BCTL 
A. 1.1. 1.2  COBOL  Procedure  Library 

The  element  CPYLIB  is  used  to  produce  the  PROC  element  PR0CL1B,  which  allows 
common  source  code  to  be  accessed  by  different  programs  via  the  COBOL  'COPY' 
statement.  PROCLIB  is  generated  by  the  @PDP  control  card  processing.  The 
following  example  shows  the  generation  of  PROCLIB. 

@USE  S..PSLPRG. 
eUSE  COB$PF.,S. 

@PDP , CW  S. CPYLIB,. PROCLIB 


Note 

refer  to  appendix  B  for  listing  of  elements 

2 

BCTL  segmented  for  efficient  use  of  storage 

3 

stand  alone  COBOL  precompiler 


4. 1.1. 1.3  Source  Data 


The  elements  which  represent  the  source  code  of  the  PSL  system  programs. 

For  a  detailed  description  of  each  program,  reference  section  2.2.  Modification 
of  source  code  may  be  perforswd  by  utilising  the  UNIVAC  1100  series  editing 
facilities. 

4.1. 1.1.4  Test  Data 

There  are  three  sets  of  test  data  In  the  PSLPRG  program  file.  The  PSL  System 
test  data  is  stored  In  elements  1A  through  SB.  The  PSL  Supplemental  test  data 
Is  stored  In  elements  SI  through  S3.  The  PSL  Installation  teat  data  Is  stored 
In  element  PSL-INSTTEST . 

The  following  example  shows  the  PSL  batch  processing  being  evoked  using  a  test 

data  element. 

eUSE  PSL. .PSLPRG. 

@USE  S., PSLPRG. 

@ADD  S .RUM 
£ADD,D  S.1A 
SEND  PSL 
MQT  PSL.BCTL 
SEOF 

4.2  PSL  Procedures 

The  PSL  JOB  section  contains  the  JCL  procedures  needed  to  Invoke  PSL  programs. 
The  JCL  procedures  cm  be  classified  as  either  language  dependent  or  general. 

A  brief  description  of  JCL  procedures  under  each  classification  follows. 

Figure  4-03  shows  a  card  deck  setup  to  add  a  new  procedure. 


4. 1.1.2  Relocatable  Element 

The  aaaeabled  PSL  eource  programs  are  stored  a a  relocatable  eleaents  bearing 
Che  sane  naae  as  their  related  symbolic  eleaents.  The  relocatable  eleaents 
can  be  generated  by  PSL  procedures 1  the  UN1VAC  ASSEMBLER  or  the  PSL  COBOL 
stand-alone  precompiler.  A  sample  card  deck  which  compiles  a  PSL  program 
using  the  stand-alone  precompiler  Is  shown  in  figure  4-02. 

4 . 1 . 1 . 3  Absolute  Elements 

The  absolute  elements  are  the  load  acuules  needed  to  execute  the  PSL  system. 
PSL  load  modules  are  produced  by  standard  UNI VAC  1100  series  collection 
processor.  Refer  to  section  4. 1.1. 1.1  for  a  description  of  the  contents  of 
each  absolute  element. 


OISE  PSL..PSLPRC. 

9USE  S..PSLPRG. 

@ASG,T  PI.F///1W 
@ASG,T  PO.F///100 
0ASG.T  PR.F///100 
?ASG,T  LS.F///100 
9 DATA, I  PI. 

9ADD.D  S.BCTLE  (SOURCE  CODE) 

SEND 

gXQT  S. PRECOMPILER  (PRECOMPILER) 

0ACOB, ITVSEC  ..S.BCTLE  (RELOCATEABLE) 

9 ADD  PO. 

9EOF 

Figure  4-02  Sample  Run  For  Compiling  PSL  Progra 


4.2.1  General  JCL  Procedures 

The  general  procedures  are  stored  in  the  following  units  of  the  JOB  section 
with  the  exception  of  “RUN". 

a.  Run  -  Invokes  the  Batch  PSL  system.  (All  PSL  functions  are  inltielly 

processed  by  this  procedure) . 

b.  CLMD  -  Collects  management  data. 

c.  MD  -  Prints  Management  Data  report. 

d.  PS  -  Prints  Program  Structure  report. 


B 

E 

B 

B 

f] 


4.2.2  Language  Dependent  Procedures 

The  language  dependent  procedures  enable  the  user  to  precamplle  and  assemble 
the  PSL  supported  languages.  Job  procedures  are  provided  for  the  structuring, 
as  well  as,  the  INCLUDE  processing  of  tha  supported  languages. 


a. 

COBOL 

Compiles  COBOL  code  without  using 

precompiler. 

b. 

SCOBOL 

Processes  COBOL  code  with  precompiler 

and  compiles  resulting  code. 

c. 

COBOLG 

* 

Processes  COBOL  code  with  INCLUDE 

capability  and  compiles  resulting  code. 

d. 

PSLCOB 

*■ 

Processes  COBOL  code  with  precompiler, 

PSL  CPYLIB  and  compiles  resulting  code. 

e. 

FORTRAN 

Compiles  FORTRAN  code  without  using 

precompiler. 

f. 

ASM 

Compiles  ASSEMBLY  code  with  ASSEMBLY  LANGUAGE 

compiler  without  using  precompiler. 

E* 

FORTRANG 

Processes  FORTRAN  code  with  INCLUDE 

capability  and  compiles  resulting  code. 

h. 

SPFORT 

Processes  FORTRAN  code  with  precompiler 

«ad  compiles  resulting  code. 

1. 

ASMG 

Processes  ASSEMBLY  code  with  INCLUDE 

capability  and  compiles  resulting  code. 

Each  of  the  procedures,  except  RUN,  is  used  in  a  spawned  job  and 
la  modified  by  the  PSL  system  to  reference  appropriate  file  names 
before  the  procedure  is  spawned. 


*Refer  to  Appendix  D  of  the  PSL  Uaer's  Manual  for  listings  of  PSL  procedures. 


When  adding  a  uaex  procedure  special  consideration  must  be  made  if  the 
procedure  contains  a  "@ADD,D"  control  card.  This  control  card  must  be 
altered  so  as  not  to  appear  as  directives  in  the  PSL  run  stream.  Once 
the  procedure  has  been  added,  the  **CHANGE  function  can  be  used  to  reformat 
these  cards. 

4.2.2. 1  Compile  Procedures 

Language  dependent  procedures  may  be  invoked  by  the  keyword  PROCEDURE  on 
the  **COMPILE  function  card  or  by  referencing  the  language  name  of  the 
unit  being  compiled.  The  keyword  PROCEDURE  will  override  the  procedure 
name  which  would  have  been  Invoked  by  the  language  name. 

When  a  compile  procedure  is  added,  the  PSL  system  requires  certain  flag-words 
in  columns  73  through  80  (left-justified).  An  example  of  a  compile  procedure 
with  the  flag-words  is  shown  in  Figure  4-04. 

Card  A  is  any  control  card  which  will  invoke  the  compiler.  The  card 
must  have  the  word  "COMPILE^"  in  columns  73  through  80.  The  user  may  set 
the  options  on  this  card,  otherwise  the  default  options  will  apply.  If 
a  user  **  COMPILE  function  requests  OBJECTING,  no  permanent  copy  of  the 
relocatable  is  saved. 

Card  B  defines  the  element  in  which  the  compiler  expects  to  find  the  source 
input.  This  card  must  have  the  word  "SOURCEW  in  columns  73  through  80. 

The  PSL  COMPILE  processor  will  substitute  for  card  B  an  @ADD,D  card  containing 
the  same  element  code  as  card  B.  This  @ADD,D  card  will  contain  the  catalog- 
file-string  of  the  independent  PSL  file  in  the  SOURCE  section  of  the  user's 
PSL  library  which  contains  the  source  code. 

When  the  COMPILE  function  is  directed  to  save  the  object  output  (OBJECTIVES) , 
the  PSL  COMPILE  processor  will  substitute  the  user's  program  file  for 
"TPF$"  on  card  A. 


Card  Col 
1 

A  @FOR,SWT 

B  @ADD 

C  @EOF 


Col 

73 

COMPILE 

SOURCE 


(other  cards  as  required) 


Figure  4-04  COMPILE  Prodecure 


4.3  MANAGEMENT  Section 

The  PSL  MANAGEMENT  section  is  created  and  maintained  for  each  project  for 
which  management  data  is  collected.  The  units  of  the  MANAGEMENT  section 
of  library  PSL  are  available  to  aid  the  user.  The  units  presented  gives  the 
user  a  basic  capability  to  define  the  store  elements  of  a  project  for 
which  management  data  is  to  be  collected.  A  detailed  description  of  the 
various  units  in  the  MANAGEMENT  section  is  given  in  Section  3.1.6  of  the 
PSL  User's  Manuel. 


APPENDIX  A 


PROGRAM  STRUCTURE  MAPS 


V, 


I 

I 

1 
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The  following  program  structure  asps  delineate  the 
hierarchical  organization  of  structured  prograa  modules  in 
the  PSL  system.  The  hierarchical  level  at  which  a  module  is 
"called"  or  a  unit  of  code  is  "included"  is  noted  and  the 
name  of  the  called  or  included  code  is  correspondingly 
indented . 
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SYMBOL  TC 
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SYMBOL  TC 
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r  aflf 
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c  rtle 
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nbr  le 
P6FLE 
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FORTRAN 
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SYMt  CL  IC 
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SYMBOLIC 

RELOCATABLE 
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RELOCATABLE 

SYMBOLIC 

RELOCATABLE 
S  YMbOL IC 
RELOCATABLE 

symbolic 
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SYMBOLIC 
RELOCATABLE 
s YMbOL  IC 

r-  clocatae  le 
symbolic 

relocatable 

symbolic 

EELCCATAB  lc 

SYMBOLIC 

PlLOCAtABLE 

SYMbOLIC 

RLLCCATAPLE 

SYMLOLTC 

RELOCATABLE 
RELOCATABLE 
symbol  tc 
RlLOCATABLE 
S  YM[,OL  IC 
RELOCATABLE 
SYMEOLIC 
RlLOCATABLE 

symbolic 

RLLOCATABLE 
S YMLCL  IC 
RELOCA1 ABLE 
SYMBOLIC 
RELOCATABLE 
SYMBOLIC 
SYMBOL  1C 
SV'EC-LTC 
SYMBOL  IC 

S YMlOL  IC 
S  Y  VE 0  L  IC 
SYMOOLIC 
SYMBOL  TC 

S  Y*  bPL  TC 
SYMbOLTC 
SYMBOLIC 
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?£obCL 

SY  «E  CL  IC 
SY»'L:OClC 

PR^CPMAP 

SYMBOL IC 

CYFIF 

SYMBOL  1 C 

f  R*XE 

SYMBOL  Tc 

I  SP AE 

SYMBOL  IC 

I  TPjE 

SYMBOL  TC 

PPSGE 

S  Y*‘bOL  IL 

LKPGE 

SYMBOLIC 

PSL-STUU 

SYMBOLIC 

I  TCLF 

SYMBOLIC 

I  TCLE 

pelocatap  le 

FBLNE 

wllocatab  le 

PRAUC 

SYMBOLIC 

PRAuF 

pelocataplf 

PF  JBE 

SYMtOL  IC 

PFJBf 

pelocatablf 

PCMLE 

symbolic 

PCVLE 

rllocataplf 

PRnCE 

SYMBOL  TC 

PRPCE 

PLLOCATABLE 

WRJBE 

SYMBOLIC 

urcjbC 

RELOCATABLE 

PPUFiE 

SYMBOLIC 

PPUNF 

relocatable 

TGUNr 

SYMBOLIC 

P&IJNE 

PLLOCATABLE 

•'A  IN 

SYMBOLIC 

«AIN 

relocatable 

BLOCK 

symbolic 

BLOCK 

rllocatablf 

ACT  1 

SVMbOLIC 

ACT1 

RELOCA  table 

AC  T2 

SYMbOLIC 

A  C  T  2 

PLLOCATABLE 

A  SS1GN 

SYMBOL IC 

A  SSIGN 

Rri  ocatah le 

PGS CAN 

symbol IC 

BGSCAR 

RlLOCATAP LP 

COM 

S  YMl)OL  IC 

C  ON  T 

RELOCA  TABLE 

r nduop 

SYMBOL  IC 

r npdop 

R  l  LOC A  T AB  LF 

CNOE  K 

SYMBOLIC 

r  NOE  p 

PLLOCATABLF 

r  ui  con 

S  Y  u  L  0  L  T  C 

FBLCON 

RLLOC ataple 

GENGO 

SYMBOLIC 

SEMGO 

RLLCCAT At  LF 

GLNL*C 

S YMBOLTC 

CENLAB 

RLLOCATAP  LF 

CENASS 

SYMc.t  LIC 

GENA  SS 
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GCN VAR 

SYMBOL  TC 

GEN  VAR 

RELOCATABLE 

OtUNS 

SYMBOL  TC 

r  f  t  #  ♦  r 

r  r  t  r  r  a  T  A  r  I  r 
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PIJTIF 
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L  A  f?N 
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filchk 
TILCHK 
It  A  L°R 
lb ALPR 

icroup 

I 0 ROUP 
isrNn 
I  sr  no 

I » I  tun 

I  wl INN 

kempt  r 
K£  hp  t  y 

N  A  H  0  H 

M»'OF 
►'tULAb 
NtWLAli 
INPLE  V 
iNPLf  V 
SPRVWO 
SPRYWO 
AC  T 3 
ACT3 

CPTIME 
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rLLOC ataple 
SY“BCL IC 
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